求助：一个关于替换的VBA宏

又碰到了一个问题，想求吧里的VBA高手们慷慨相助。
我做了这样一个表格，如下图所示

B列中有若干行，这一列中每一个单元格的内容都是完全相同的，而且每个单元格的内容中，都包含特殊字符“##”。
A列的行数和B列完全相同，但是A列中每个格子的内容都不同。
我想要做的是用每一行中 A 列中的内容替换该行 B列相应单元格中的特殊字符“##”。
有时候A列会有几百甚至上千行，手工换起来要累得人吐血，所以希望高手们能否给段代码，批处理解决这个问题，大谢！！！

不用怕，有我在。
Sub x()
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(R, 2).Replace what:="~#~#", replacement:=Cells(R, 1), lookat:=xlPart
Next
End Sub

太神奇了！五体投地，仰望崇拜中~~
太感谢啦~

顺便弱弱地问一句，替换的是##，为什么写在语句当中就是“~#~#”了呢？
渴望学习中……

其实不用 ~ 也可以，连 lookat:=xlPart 也可以不用，只是习惯罢。
Sub x()
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(R, 2).Replace what:="##", replacement:=Cells(R, 1)
Next
End Sub

谢过高手！！！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

4回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六