[原创]★批量文本替换工具★

mayafeng · 发表于 2012-2-14 14:24

谢谢楼主分享

杀苏 · 发表于 2012-4-25 16:48

下来看看

zhou10923 · 发表于 2012-4-26 15:28

谢谢楼主了！

yinzi5 · 发表于 2012-5-5 12:29

感谢分享！！！{:soso_e113:}

sqrt2x · 发表于 2012-6-14 10:10

谢了，学习一下

tud1024 · 发表于 2012-6-18 16:33

要好好研究一下

yunfengrui · 发表于 2012-7-5 11:53

O(∩_∩)O谢谢楼主。。很给力。。。用的很方便，有的时候这个东东替换整个表格里的东东连设置的替换表也被换成新值了。是不是替换前手动把excel替换范围弄成工作表就OK？（有时候会变成工作薄）。。

yunfengrui · 发表于 2012-8-28 13:58

本帖最后由 yunfengrui 于 2012-8-28 14:24 编辑

用了一段时间比较纠结本来替换数据和替换表放在一个表格里，要是不小心 “范围”选到了“工作簿”。。。就死翘翘了，以前弄的替换表里设置的数据木有了
在EXCELHOME 搜翻天也没搜到用VBA限定替换区域的方法
（例如在Range前加上工作表名称没用似乎“查找和替换”里面的设置的优先级更高，会忽略宏命令的设置）看起来同样迷茫的人很多啊

我忽然想到。。。为啥花时间搞范围。。搞不定范围。把替换表直接新建个表格不就OK了 o(╯□╰)o
跟我一样纠结的人别发帖了。。。~~o(>_<)o ~~
x = Application.CountA(Sheets("替换表").Range("A1:A65536").SpecialCells(xlCellTypeVisible))    '指定区域非空可见单元数量（忽略隐藏单元）
For a = 2 To x
AA = Sheets("替换表").Range("a" & a).Value
bb = Sheets("替换表").Range("b" & a).Value
         If Sheets("替换表").Range("c1").Value = "匹配替换" Then 'C1单元内容为“匹配替换/不匹配替换”

分成2个表格后这段改成下面就OK
x = Application.CountA(Workbooks("替换表.XLS").Sheets("Sheet1").Range("A1:A65536").SpecialCells(xlCellTypeVisible))
For a = 2 To x
AA = Workbooks("替换表.XLS").Sheets("Sheet1").Range("a" & a).Value
bb = Workbooks("替换表.XLS").Sheets("Sheet1").Range("b" & a).Value
         If Workbooks("替换表.XLS").Sheets("Sheet1").Range("c1").Value = "匹配替换" Then 'C1单元内容为“匹配替换/不匹配替换”

农村信合小兵 · 发表于 2012-11-1 12:53

十分感谢分享！

7176386 · 发表于 2012-11-6 21:21

如何是用在。excel写入替换word的内容比较好哦。

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

[Excel基础] [原创]★批量文本替换工具★