去除多余的词vba

nnsea

Sub 去除多余的词()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .ignorecase = True '大小写区分设置
    .Pattern = "(VBA){2,}"
    [b1] = .Replace([a1], "VBA")
End With
End Sub