excel - Excel - VBA：自动用另一个词替换（使用什么/替换）

Question

我希望我的代码自动将列表中的某些单词替换为其他单词。到目前为止，我找到了如何用另一个词替换一个词。例如，如果我希望将单词“Avenue”替换为单词“Ave”。我用 ：

Worksheets("sMain").Columns("D").Replace _
What:="Avenue", Replacement:="Ave.", _
SearchOrder:=xlByColumns, MatchCase:=True

有用。现在我想通过用另一个词替换多个词来提高效率。例如，如果我输入“Avenue”或“avenue”或“ave.”，它将被“Ave.”替换。我一直在尝试这个但没有成功（编译错误）：

Worksheets("sMain").Columns("D").Replace _
What:="Avenue", Replacement:="Ave.", _
What:="avenue", Replacement:="Ave.", _
What:="ave.", Replacement:="Ave.", _
SearchOrder:=xlByColumns, MatchCase:=True

关于如何使它成为可能的任何想法？谢谢

Answer 1

你可以在这样的循环中做到这一点

ary = Array("Avenue", "avenue", "ave.")
For Each wd In ary
    Columns("D").Replace What:=wd, Replacement:="Ave.", SearchOrder:=xlByColumns, MatchCase:=True
Next

您可能还想将 MatchCase 设置为 False，因为您不需要两个大写和小写“avenue”。