6.VBA批量替换

Sub Replace2()

Dim XX, a

Worksheets(1).Activate
a = Excel.Application.WorksheetFunction.CountA(Range("A:A"))

For j = 2 To Worksheets.Count

With .Worksheets(j).Activate
For i = 1 To a
XX = Worksheets(1).Range("A" & i).Value
Debug.Print XX
Range("Q:Q,P:P").Select
Selection.Replace What:=XX, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Next

Range("Q:Q,P:P").Select
Selection.Replace What:=";;", Replacement:=";", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

Next
End Sub

©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容