1列查找和替换

Question

N列包含以下信息：

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

我正在使用以下Excel VB for Applications代码：

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

只要名称包含＆＃34;，Jr。，＆＃34;它就可以正常工作。如果列不包含此值，则会收到运行时错误＆＃34; 9＆＃34;：下标超出范围。

我该怎么做才能解决这个问题？

Answer 1

缺少要替换的东西不应该抛出错误。代码应能够针对完全空白的列运行。

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

请注意，您的原始示例包含xlpPart代替xlPart。