比如,我想将一个excel文件中的包含的词语:文具盒,书包,铅笔一次性全部替换成文具,注意不是一个一个的替换,是一次性的,谢谢!
按Alt+F11,打开vba editor
复制下列代码
Sub bb()
R = Sheet1.UsedRange
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "[A-Z]"
For i = 1 To UBound(R)
For j = 1 To UBound(R, 2)
R(i, j) = .Replace(R(i, j), "Z")
Next
Next
End With
Sheet1.UsedRange = R
End Sub