如何在地址中添加逗号分隔符到城市的开始处

例：

1412 Chestnut Street Philadelphia 494 W Germantown Pike Plymouth Meeting 

我想在每个城市的开头添加一个逗号作为200的列表，但正如您在上面看到的，有时城市名称并不是从单元格的最后一个单词开始。

是否有一个在Philadelphia和Plymouth Meeting之前增加逗号的总体配方？

Answer 1

这是一个简单的例子，你可以适应你的使用。 说我们在A栏中填写地址， B栏填上城市名单：

以下macros扫描寻找[空间] [城市]的地址，并用[，] [城市]replace城市

 Sub Commafication() Dim Acol As String, Ccol As String Dim ia As Long, ic As Long, va As String, vc As String '''''''''''''''''''''''''''''''''''' ' update these as needed Acol = "A" Ccol = "B" iamax = 3 icmax = 6 '''''''''''''''''''''''''''''''''''' For ia = 1 To iamax va = Cells(ia, Acol).Text For ic = 1 To icmax vc = Cells(ic, Ccol).Text If InStr(va, " " & vc) > 0 Then Cells(ia, Acol).Value = Replace(va, vc, "," & vc) End If Next ic Next ia End Sub 

结果如下：

注意

这可以按照你的要求把逗号放在城市名称的前面，而不是在逗号和城市之间放置一个空格。