0

リストの一部の単語を別の単語に自動的に置き換えるコードが必要です。これまでのところ、ある単語を別の単語に置き換える方法を見つけました。たとえば、「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

それを可能にする方法について何か考えはありますか？ありがとう

4

1 に答える 1

2

このようなループでそれを行うことができます

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

大文字と小文字の 2 つの "avenue" は必要ないため、MatchCase を False に設定することもできます。

于 2013-06-10T02:32:40.970 に答える