在Excel中查找和替换的单元格功能

Question

在VBA中也有类似的帖子/问题，关于全页查找/替换，但是在创建函数时，我找不到能够详细介绍应用程序的帖子。到目前为止，我的内容在下面，但这给了我错误。

目标是标准化地址，同时保留原始地址。我希望能够创建不断增长的替换单词列表，而不是替换该单元格中的单词，而是创建原始单元格的标准格式 next 。

例如：

原始地址

16020利兰路

标准地址

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

长时间潜伏在这里的阴影终于消失了。我非常感谢您的帮助。