Страницы: 1
RSS
Убрать отступы между строк в одной ячейке сохраняя их последовательность.
 
Здравствуйте все!
Как решить такую задачу, помогите !

В одной ячейке есть текст. В этом тексте много строк. Между строками много отступов. Как убрать отступы ? но чтобы строки остались друг за другом.

P/S/
Была идея разбить данный текст на ячейки по строкам(метолом"Текст по столбцам" с символом СИМВОЛ(10) или Alt + 010), а потом склеить образом &СИМВОЛ(10)&, но когда разбиваешь, пустые строки, то есть отступы, превращаются в пустые ячейки и при склейке получается все с 0.  

Либо как склеить строки методом &СИМВОЛ(10)& пропуская пустые ячейки.
Изменено: fybikys - 16.01.2020 18:17:26
 
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
Dim arr
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B1:B" & iLastRow).ClearContents
  For i = 1 To iLastRow
    arr = Split(Cells(i, "A"), Chr(10))
    For j = 0 To UBound(arr)
      If arr(j) <> " " Then
        Cells(i, "B") = Cells(i, "B") & arr(j) & Chr(10)
      End If
    Next
  Next
End Sub
 
Это то что нужно СПАСИБО большое !!!!!!
Страницы: 1
Наверх