Замена текста

[Lived08]

Сообщение от EugeneS

Код макроса:

Sub main()
Dim i As Long: i = 1: For Each x In Range([a1], Cells(ActiveSheet.UsedRange.Rows.Count, 1))
a = Split(x, " "): Cells(i, 2) = a(0) & " улица " & a(1) & " дом " & a(2) & " квартира ": i = i + 1
Next: End Sub

Данные для обработки располагаются в столбце "А". На сайте сейчас тех. неполадки, поэтому файл с макросом выложить не могу. Начнет работать - выложу

Сообщение от аналитика

строго Split, вылетело из головы
ай-яй-яй

Благодарю!!

[vikttur]

Формат ячейки ?" улица "?" дом "?" квартира"
См. пример.