Функция ячейки для поиска и замены в Excel - PullRequest
Новая
       5

Функция ячейки для поиска и замены в Excel

0 голосов
/ 03 октября 2018

Были похожие сообщения / вопросы о полном поиске / замене листа в VBA, но мне не удалось найти сообщение, детально описывающее приложение при создании функции.То, что у меня есть, ниже, но оно дает мне ошибки.

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

Например:

Оригинальный адрес

16020 LEELAND ROAD

Стандартизированный адрес

16020 LEELAND RD 

Function FINDREPLACE()

Dim fndlist As Variant
Dim rplclist As Variant
Dim x As Long
fndlist = Array("Road", ".", "Blvd")
rplclist = Array("RD", "", "BLVD")



For x = LBound(fndlist) To UBound(fndlist)
Cells.Replace What:=fndlist(x), Replacement:=rplclist(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False


Next x


End Function

Долгое время скрывался здесь, наконец, из тени.Буду очень признателен за помощь.

...