从单个单元格提取多行数据到多个单元格

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

例如：