如何在地址中的城市開頭添加逗號分隔符

Question

例子：

1412 Chestnut Street Philadelphia
494 W Germantown Pike Plymouth Meeting

我想在 200 個列表中的每個城市的開頭添加一個逗號，但正如您在上面看到的，有時城市名稱不會從單元格中的最后一個單詞開始。

是否有一個總體公式可以在Philadelphia和Plymouth Meeting之前添加逗號？

Answer 1

這是一個簡單的示例，您可以根據自己的使用進行調整。 假設我們在A列中有地址，在B列中有城市列表：

以下宏掃描地址以查找[space][city]並將城市替換為[,][city]

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

結果如下：

筆記

根據您的要求，這會將逗號放在城市名稱之前，而不是在逗號和城市之間放置一個空格。