Уважаемые форумчане, помогите пожалуйста со следующей задачей: Нужно разбить имя фамилию отчество по разным столбцам, трудность в том что текст написан без пробелов, но с множеством переносов. Файл по ссылке https://yadi.sk/i/Mz-mNHZqpGKFlQ
А зачем гонять народ по ссылкам? Ведь можно же было прикрепить файл к сообщению. См. вариант. Но в исходных данных есть ошибки, поэтому и результат будет с ошибками.
Михаил Лебедев написал: .Но в исходных данных есть ошибки
так же не идеал. Но хоть что-то, а далее глазками.
Код
Sub main()
Dim arr(), ikey, srow&, sarr$(), j&
arr = [a1].CurrentRegion.Value
For Each ikey In arr
i = i + 1
ikey = Replace(ikey, Chr(10), " ")
sarr = Split(ikey, " ", 3)
For j = 0 To UBound(sarr)
sarr(j) = Trim(Replace(sarr(j), " ", ""))
Next j
Cells(i, "b").Resize(, 3).Value = sarr
Next ikey
End Sub
"Все гениальное просто, а все простое гениально!!!"