【求助】根据对应关系替换表达式中的元素

limonet

Sub limonet()
    Dim Dic As Object, i%, S$, Reg As Object
    Set Dic = CreateObject("scripting.dictionary")
    Set Reg = CreateObject("vbscript.regexp")
    For i = 2 To 4
        If Cells(i, "A") Like "*(*" Then
            Dic(Replace(Replace(Cells(i, "A"), "(", "\("), ")", "\)")) = Cells(i, "B")
        Else
            Dic(Cells(i, "A").Value) = Cells(i, "B")
        End If
    Next i
    S = Range("D2")
    For i = 0 To Dic.Count - 1
        Reg.Pattern = Dic.keys()(i) & "([\+\-\*])"
        S = Reg.Replace(S, Dic.items()(i) & "$1")
    Next i
    Range("F2") = S
End Sub

limonet

还是用这个，少判断。

limonet

Sub limonet()
    Dim Dic As Object, i%, S$, Reg As Object
    Set Dic = CreateObject("scripting.dictionary")
    Set Reg = CreateObject("vbscript.regexp")
    Reg.Pattern = "([\?\+\-\*\\\.\^\$\|\(\)\[\]\{\}])"
    Reg.Global = True
    For i = 2 To 4
        Dic(Reg.Replace(Cells(i, "A"), "\$1")) = Cells(i, "B")
    Next i
    S = Range("D2")
    For i = 0 To Dic.Count - 1
        Reg.Pattern = Dic.keys()(i) & "([\+\-\*])"
        S = Reg.Replace(S, Dic.items()(i) & "$1")
    Next i
    Range("F2") = S
End Sub