1列查找和替换

时间:2015-03-16 16:30:18

标签: excel-vba vba excel

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

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

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

1 个答案:

答案 0 :(得分:1)

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

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

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