Excel - VBA: автоматически заменяет слова другим (с использованием What/Replacement)

Question

Я бы хотел, чтобы мой код автоматически заменил несколько слов из списка другими словами. До сих пор я нашел, как заменить одно слово другим. Например, если я хочу заменить слово «Авеню» словом «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 Ложь, как вы не будете нуждаться в два верхних и нижний регистр «проспект» 'ы.