如何将分隔符添加到格式错误的地址？

Question

我的地址如下：

1200 Harbor Way SSte 101Richmond，CA 94804

如何添加如下分隔符：

1200 Harbor Way S，Ste 101，里士满，加利福尼亚州94804

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