Извлечение нескольких строк данных из одной ячейки в несколько ячеек

Question

У меня есть список рассылки, который настроен в Excel. Существует только один столбец, и каждая ячейка имеет полный почтовый адрес. Мне нужно каждую строку данных из каждой ячейки экстраполировать в соответствующие столбцы, чтобы правильно отсортировать адрес.

Например:

John Smith
123 Main St.
New York, NY 00000

Экстраполирован на это («|» обозначает новую ячейку)

John Smith | 123 Main St. | New York | NY | 00000

Любая помощь приветствуется

Answer 1

Выберите ячейки, которые вы хотите обработать, и запустите этот короткий макрос:

Sub ReOrganizer()
    Dim r As Range

    For Each r In Selection
        ary = Split(r.Text, Chr(10))
        r.Offset(0, 1) = ary(0)
        r.Offset(0, 2) = ary(1)
        bry = Split(ary(2), ", ")
        r.Offset(0, 3) = bry(0)
        cry = Split(bry(1), " ")
        r.Offset(0, 4) = cry(0)
        r.Offset(0, 5) = "'" & cry(1)
    Next r
End Sub

Например: