批量替换问题

Excel小白3

不知道该说是第一次接触宏还是第一接触VBA，至今还没弄清楚，两者的区别；
不过，问题是这样的：
工作中用到批量替换功能，在论坛找到前人留下的工具http://club.excelhome.net/thread-215440-1-1.html
窃喜后，借用
但是实际应用中发现，终端情况成功替换，但“时段”内容无法成功替换，思考良久无果，特请教论坛各位前辈


上附件************

日·访客时段分布.zip (15.73 KB, 下载次数: 16)

2015-1-6 17:07 上传

点击文件名下载附件
文件

gxp1986

你要替换什么效果?要求也没写出来,叫人怎么帮你?

Excel小白3

gxp1986 发表于 2015-1-6 17:24
你要替换什么效果?要求也没写出来,叫人怎么帮你?

所言极是，忙晕了

gxp1986

F2=LOOKUP(C2,设置!A:B) 下拉,得到新值,是这样子吗?

Excel小白3

gxp1986 发表于 2015-1-6 17:28
F2=LOOKUP(C2,设置!A:B) 下拉,得到新值,是这样子吗?

是想用宏来实现，在源数据处直接替换，这样下拉，是在新的位置得到替换后的数据

cmxxccxx

这个不关宏还是VBA，导致你无法替换的原因是  这个“~” 符号，这个符号被认为是统配符，修改下你的代码就可以了，
最简单的改法：
Application.Calculation = xlCalculationManual        从这句代码下面插入以下红色代码即可:

Cells.Replace What:="~~", Replacement:="-", LookAt:=xlPart, SearchOrder _
                 :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("设置").Cells.Replace What:="~~", Replacement:="-", LookAt:=xlPart, SearchOrder _
                 :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


x = Application.CountA(Sheets("设置").Range("A1:A100").SpecialCells(xlCellTypeVisible))

。。。。。。


然后你运行宏即可

Excel小白3

cmxxccxx 发表于 2015-1-6 17:42
这个不关宏还是VBA，导致你无法替换的原因是  这个“~” 符号，这个符号被认为是统配符，修改下你的代码就可 ...

按照方法成功替换，自己琢磨的过程中，怀疑是时段的格式的问题，问题竟然是“~” 的问题，受教，谢过