Extraindo várias linhas de dados de uma única célula para várias células

Question

Eu tenho uma lista de discussão que é configurada no Excel. Há apenas uma coluna e cada célula tem um endereço de correspondência completo. Preciso que cada linha de dados de cada célula seja extrapolada para as colunas apropriadas para classificar o endereço corretamente.

Por exemplo:

John Smith
123 Main St.
New York, NY 00000

Extrapolado para isso ("|" denota uma nova célula)

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

Qualquer ajuda é apreciada

    

Answer 1

Selecione as células que você deseja processar e execute esta macro curta:

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

Por exemplo: