nnsea 发表于 2023-10-25 13:09:06

去除多余的词VBA

Sub 去除多余的词()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .ignorecase = True '大小写区分设置
    .Pattern = "(VBA){2,}"
    = .Replace(, "VBA")
End With
End Sub
页: [1]
查看完整版本: 去除多余的词VBA