如何在excel中将一列拆分为三列？

如何将第一张图片（整个地址）拆分为第二张图片（地址、城市、州、zipcode）。我有上千个数据，所以请建议我简单的方法

所有地址的格式均为德克萨斯州弗里斯科鹌鹑溪路729号，邮编75034

我需要将地址拆分为729鹌鹑溪大道，城市为frisco，州为tx，zipcode为75034

---

如果您知道您的数据将始终采用以下格式，请感谢：

<address>, <city> <2-letter state> <5-digit zip code>

的公式：

= MID(A1,LEN(A1)-7,2)

= RIGHT(A1,5)

的公式：

= MID(A1,LEN(A1)-7,2)

= RIGHT(A1,5)

的公式：

= MID(A1,LEN(A1)-7,2)

= RIGHT(A1,5)

参见下面的示例

---

这可以通过

RegExp

完成，但是我没有计算

RegExp

模式，而是使用了

Split

函数和几个数组。我假设地址在逗号之前

Sub SplitAddress()
    Dim Addresses As Variant, results As Variant, tmp As Variant
    Dim i As Long, j As Long

    ' Update for you range
    With Sheet1
        'Trick to get 1D array from range
        Addresses = Application.Transpose(.Range(.Cells(2, "A"), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "A")))
    End With

    ReDim results(1 To UBound(Addresses), 1 To 4)

    For i = 1 To UBound(results, 1)
        tmp = Split(Addresses(i), ",")
        results(i, 1) = Trim(tmp(0))

        tmp = Split(Trim(tmp(1)), " ")

        For j = LBound(tmp) To UBound(tmp)
            results(i, j + 2) = Trim(tmp(j))
        Next j
    Next i

    ' Update for your destination
    With Sheet1.Cells(2, "B")
        Range(.Offset(0, 0), .Offset(UBound(results, 1) - 1, UBound(results, 2) - 1)).Value2 = results
    End With
End Sub

使用RegExp更新

此方法使用

RegExp

分割字符串

Sub splitAddressRegEx()
    Dim ReGex As Object
    Dim Addresses As Range
    Dim j As Long
    Dim c, m

    ' Update for your range
    With Sheet1
        Set Addresses = .Range(.Cells(2, "A"), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "A"))
    End With
    Set ReGex = CreateObject("VBScript.RegExp")

    With ReGex
        .Global = True
        .IgnoreCase = True
        .Pattern = "(.+?(?=,))|(\w+)"
    End With

    For Each c In Addresses
        j = 1
        If ReGex.Test(c.Value2) Then
            For Each m In ReGex.Execute(c.Value2)
                ' Update for your output
                c.Offset(0, j).Value2 = m
                j = j + 1
            Next m
        End If
    Next c

End Sub

---

答：非常困难，因为Excel不支持正则表达式匹配。我赞成不要在Excel中执行此任务。这将取决于数据的格式。请提供一些例子和你所拥有的tried@TimBiegeleisen我在下面的两个示例中使用了

Split

方法或

RegEx

方法来处理这个问题