excel - 如何为格式错误的地址添加分隔符？

Question

我有如下地址：

1200 Harbour Way SSte 101里士满，CA 94804

如何添加分隔符，如下所示：

1200 Harbour Way S, Ste 101, Richmond, CA 94804

标签： excelparsing

Answer 1

您可以将 RegExp 与以下 VBA 代码一起使用：

Sub Test()

    Dim s As String

    s = "1200 Harbour Way SSte 101Richmond, CA 94804"
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\d)([A-Z])"
        s = .Replace(s, "$1, $2")
    End With
    MsgBox s

End Sub