将单元格的垂直文本拆分为多列

Question

我有一个包含地址的 Excel 单元格。我希望将地址拆分为单独的单元格：

地址 城市 状态 邮编

独特之处在于这些项目是垂直堆叠的，否则我会简单地使用 Data > Text to Columns：

更新：我尝试了分隔符选项，但是我无法拆分所有行：

Answer 1

您soooo 接近解决方案 :) 是的，Data -> Text to columns 是。

诀窍是您使用 Ctrl+J 作为分隔符，这将输入new-line 字符。

信用：https://trumpexcel.com/split-multiple-lines/

顺便说一句，Google 搜索的字符串是 excel split cells with multiple lines。

Answer 2

下面将转换一列中的长列表。如果您只有一个单元格的联系信息，最好手动完成。

Option Explicit

Sub gatherAddress()
    Dim i As Long, var As Variant, tmp As Variant

    With Worksheets("sheet2")
        'put the new header labels in the top row
        .Cells(1, "B").Resize(1, 4) = Array("Address", "City", "State", "Zip")

        'collect the values from column A
        var = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)).Value2

        'make room for processed values
        ReDim Preserve var(LBound(var, 1) To UBound(var, 1), _
                           LBound(var, 2) To UBound(var, 2) + 4)

        'process the address into separate cells
        For i = LBound(var, 1) To UBound(var, 1)
            'split the billing address on the linefeed
            tmp = Split(var(i, 1), vbLf)

            'strip address line
            var(i, 2) = tmp(1)
            'strip city
            var(i, 3) = Split(tmp(2), Chr(44))(0)
            'strip city and zip
            var(i, 4) = Split(tmp(2), Chr(44))(1)
            'strip zip/zip+4 code
            var(i, 5) = Split(var(i, 4), Chr(32))(UBound(Split(var(i, 4), Chr(32))))
            'remove zip from city
            var(i, 4) = Trim(Replace(var(i, 4), var(i, 5), vbNullString))
        Next i

        'put the processed values back into the worksheet
        .Cells(2, "A").Resize(UBound(var, 1), UBound(var, 2)) = var
    End With

End Sub