Как добавить запятую в начало города в адресе

Question

Пример:

1412 Chestnut Street Philadelphia
494 W Germantown Pike Plymouth Meeting

Я хотел бы добавить запятую в начале каждого города в списке из 200, но, как вы можете видеть выше, иногда название города не начинается с последнего слова в ячейке.

Есть ли всеобъемлющая формула, которая может добавить запятую перед Philadelphia а также Plymouth Meeting?

Answer 1

Вот простой пример, который вы можете адаптировать к своему использованию. Скажем, у нас есть адреса в столбце A и список городов в столбце B:

Следующий макрос сканирует адреса в поисках [пробел][город] и заменяет город на [,][город]

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

Вот результат:

НОТА

Как вы и просили, запятая ставится перед названием города, а не между пробелом и городом.