如何设置批量替换，但有不循环替换问题

fsd369

替换后结果与需求不符。。。。。会重复替换，怎么改？

Sub 自转替换()
Dim d, sh As Worksheet, s$
    s = "替换表"
    Set d = CreateObject("Scripting.Dictionary")
    For Each sh In Worksheets
       d(sh.Name) = ""
    Next
    If d.exists(s) Then
    Application.Calculation = xlCalculationManual


      Sheets("替换表").Cells.Replace What:="工", Replacement:="G", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    x = Application.CountA(Sheets("替换表").Range("A1:A65536").SpecialCells(xlCellTypeVisible))
    For a = 1 To x
        AA = Sheets("替换表").Range("a" & a).Value
        bb = Sheets("替换表").Range("b" & a).Value

  Sheets("1").Cells.Replace What:=AA, Replacement:=bb, LookAt:=xlWhole, SearchOrder _
                  :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

  Sheets("1").Cells.Replace What:="G", Replacement:="文", LookAt:=xlPart, SearchOrder _
                  :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


        AA = ""
        bb = ""
    Next
Application.Calculation = xlCalculationAutomatic


    End If
    Set d = Nothing

End Sub

fsd369

晕最后替换放错地方了？

kuangben8

想要批量替换，但是不循环。那就参考一下第127期的正则表达式竞赛题。