VBA中实现excel批量替换的代码

郭 · 发表于 2011-4-21 19:09

Sub 符号替换2()
Application.ScreenUpdating = False
Range("B7,L7:BW7").Replace "~*", "×"
'1替换
Range("B8, L8:BW8,L13:BW13").Replace "M", "O"
Range("B8, L8:BW8,L13:BW13").Replace "N", "P"
'2替换 Range("B6,B9:B10,L3:BW3,L5:BW5,L9:BW9,L10:BW10,L12:BW12").Replace "X", "A"
'3替换 Range("B6,B9:B10,L3:BW3,L5:BW5,L9:BW9,L10:BW10,L12:BW12").Replace "Y", "B"
'4替换 Range("B6,B9:B10,L3:BW3,L5:BW5,L9:BW9,L10:BW10,L12:BW12").Replace "Z", "C"
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
If Not Intersect(Range("B6,B9:B10,L3:BW3,L5:BW3,L9:BW9,L10:BW10,L12:BW12"), Target) Is Nothing Then
   Application.ScreenUpdating = False
   符号替换2
      Application.ScreenUpdating = True
End If
End Sub

郭 · 发表于 2011-4-21 19:09

本帖最后由郭于 2011-4-21 19:12 编辑

还有其他的代码在本工作表当中运行的，想改进一下编程方式，运行快一点，减少屏幕抖动。
Sub WWW11()
For Each c In Range("a4:L4")
c.Value = Replace(Replace(Replace(Replace(Replace(Replace(c.Value, "*", "×"), "A", "@"), "Z", "φ"), "C", "?"), "V", "?"), "X", "?")
Next
End Sub
这是别人给写的但是运起还是不行。

shi1628 · 发表于 2011-10-25 08:54

学习了,谢谢兰版主....

liziyuliziyu6 · 发表于 2012-2-11 16:59

大大大顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

wenchduan · 发表于 2012-2-11 17:54

这个有用的，先收下喽

chenwenyong · 发表于 2012-5-5 22:24

Book1.xls (18 KB, 下载次数: 9)

ibolee · 发表于 2012-6-12 10:17

一直找不到这样的帖子，终于找到了~

ashang · 发表于 2012-8-3 17:56

求问兰总，此代码在excel2010中运行后无法选取区域。。有没有解决办法呢？

laijiafu527 · 发表于 2012-9-13 12:41

好东东，收藏了，多谢！

		自动登录	找回密码
密码			注册

[分享] VBA中实现excel批量替换的代码