0

фаил excelЕсть много значений в столбце. Ячейки с разными форматами.

Допустим, значение в ячейке 9, а выводится оно как 9С-228ТСП, т.к. ячейка имеет формат 0"С-228ТСП". Похожих форматов очень много.

Как скопировать значения в таком виде, как они отображаются (число с текстом)?

Функция ТЕКСТ не подходит, так-как форматов очень много, в каждой ячейке свой

введите сюда описание изображения

6
  • Форматирование же сохраняется при копирование стандартным методом. Не понятно в чем загвоздка
    – Denis E
    28 мар 2019 в 11:27
  • Чтоб дальше работать с этой ячейкой, нужно чтоб она была текстом 28 мар 2019 в 11:28
  • Если как вариант сделать копию столбца, его форматировать уже, и с ним же работать?
    – Denis E
    28 мар 2019 в 11:31
  • Простите не понял. Даже допустим cntl+f не работает, потому что в ячейке "9" а не 9С-228ТСП. Ячейка со значением "9", отформатированна добавочным "С-228ТСП" 28 мар 2019 в 11:40
  • Данные нужно изменить на месте7 Перенести в другой диапазон? Произвести другие действия? 28 мар 2019 в 11:42

1 ответ 1

1

Если все форматы имеют такую же структуру (число"текст"), выполнить небольшй макрос:

Sub ValueInFormat()
Dim rRng As Range
Dim i As Long
    With Worksheets("Лист1")
        i = .Cells(.Rows.Count, "B").End(xlUp).Row
        Set rRng = .Range("B1:B" & i)
    End With

    For i = 1 To rRng.Rows.Count
        With rRng(i, 1)
            If .Value = "" Then .Value = .Value & Split(.NumberFormat & """", """")(1)
        End With
    Next i

    rRng.NumberFormat = "@"
    Set rRng = Nothing
End Sub

Код изменит значения ячеек заполненного диапазона в столбце B и задаст текстовый формат ячейкам.

Немного доработать - исходные данные не будут меняться, результат запишется в отдельный диапазон:

Sub ValueInFormat()
Dim aF()
Dim rRng As Range
Dim i As Long
    With Worksheets("Лист1")
        i = .Cells(.Rows.Count, "B").End(xlUp).Row
        Set rRng = .Range("B1:B" & i)
        aF = .Range("B1:B" & i).Value

        For i = 1 To UBound(aF)
            If aF(i, 1) <> Empty Then aF(i, 1) = aF(i, 1) & Split(rRng(i, 1).NumberFormat & """", """")(1)
        Next i

        .Range("D1").Resize(UBound(aF), 1).Value = aF
    End With

    Set rRng = Nothing
End Sub

Код разместить в общем модуле. Вход в редактор VBA - Alt+F11

4
  • aF(i, 1) = aF(i, 1) & Split(rRng(i, 1).NumberFormat, """")(1) строка вызывает ошибку 28 мар 2019 в 12:23
  • Или обрабатываете не тот лист (в макросе указано имя "Лист1"), или в ячейке другой тип форматирования. При ошибке поставьте указатель над переменной i - покажет значение переменной. В данном случае это номер строки. Посмотрите форматирование ячейки в строке i 28 мар 2019 в 12:25
  • Показывает строку 415, там уже идет нормальные форматы ячеек, попробовал удалить все ниже 415 строки, все равно ошибку выдает, теперь на пустой ячейке. Добавил сам фаил в шапку. 28 мар 2019 в 12:32
  • Изменил строку кода (игнорирование пустых ячеек и обход ошибки при другом форматировании) 28 мар 2019 в 12:38

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.