我想在excel中一次性将A,B,C,D,E,.......全部替换成Z,请问如何操作?谢谢!

比如,我想将一个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

温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-08-14
在工作表的标签上点右键,->查看代码
把下述代码复制进去,然后运行.运行前需将宏安全性调低.
Sub 字母Z()
For i = 65 To 89
Cells.Replace What:=Chr(i), Replacement:="Z"
Next i
End Sub
第2个回答  2012-08-14
复制Z,选中ABCDE。。。,粘贴即可。
第3个回答  2012-08-14
没明白你说的意思
相似回答