Приветствую всех!
Имеется макрос для переноса данных из диапазона ячеек в одну объединенную ячейку. (файл с примером во вложении)
В диапазоне могут попадаться пустые ячейки, которые не нужно учитывать при переносе, чтобы не создавать пропуски.
На выходе должен получится текст в столбик без пропусков. Как можно доработать код ниже?
Имеется макрос для переноса данных из диапазона ячеек в одну объединенную ячейку. (файл с примером во вложении)
В диапазоне могут попадаться пустые ячейки, которые не нужно учитывать при переносе, чтобы не создавать пропуски.
На выходе должен получится текст в столбик без пропусков. Как можно доработать код ниже?
Код |
---|
Range("A1:A10").Select Dim i As Long Dim Str As String Str = Selection.Cells(1) For i = 2 To Selection.Cells.Count Str = Str & vbNewLine & Selection.Cells(i).Value Next i Range("C1") = Str |