Здравствуйте все! Как решить такую задачу, помогите !
В одной ячейке есть текст. В этом тексте много строк. Между строками много отступов. Как убрать отступы ? но чтобы строки остались друг за другом.
P/S/ Была идея разбить данный текст на ячейки по строкам(метолом"Текст по столбцам" с символом СИМВОЛ(10) или Alt + 010), а потом склеить образом &СИМВОЛ(10)&, но когда разбиваешь, пустые строки, то есть отступы, превращаются в пустые ячейки и при склейке получается все с 0.
Либо как склеить строки методом &СИМВОЛ(10)& пропуская пустые ячейки.
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