1 Колонка поиска и замены

Question

Колонка N содержит следующую информацию:

Doe, Jane 
Doe, John 
Doe, Jr., Johnny 

Я использую следующий Excel VB для приложений:

Columns("N").Replace What:=", Jr.,", _ 
          Replacement:=" Jr.,", _ 
          LookAt:=xlpPart, _ 
          SearchOrder:=False, _ 
          MatchCase:=True, _ 
          SearchFormat:=False, _ 
          ReplaceFormat:=False 

Он отлично работает до тех пор, есть имя, содержит «, младший». Если столбцы не содержат этого значения, я получаю ошибку времени выполнения «9»: индекс вне диапазона.

Что я могу сделать, чтобы исправить эту проблему?

Answer 1

Отсутствие чего-то заменить не должно вызывать ошибки. Код должен быть выполненным против абсолютно пустой колонки.

With ActiveSheet 
    With .Columns("N") 
     .Replace What:=", Jr.,", Replacement:=" Jr.,", LookAt:=xlPart 
    End With 
End With 

Обратите внимание, что исходный образец содержал xlpPart вместо xlPart.