Sub test()
Dim arr, i&
arr = Split([a1], Chr(10))
For i = 0 To UBound(arr)
arr(i) = Len(arr(i))
Next i
[c1] = arr(0)
'[c1].Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub
"Все гениальное просто, а все простое гениально!!!"
jubatus, Можно так, но это извращение. Лучше все числа писать в отдельных строках, чтоб не создавать себе потом проблем. Первое число - символы в первой строке ячейки, второе - во второй. Непечатаемые символы переноса убираем с помощью -1
50 взял произвольно с запасом, число должно быть больше длинны начального текста для правильной работы формулы. символ(10) - это и есть символ переноса.