EXCEL VBA 批量替换单元格内容

发布网友发布时间：2022-04-22 16:56

我来回答

共5个回答

热心网友时间：2023-08-22 09:14

1、准备数据。

2、选中数据。

3、按ctrl+h组合键。

4、打开替换界面。

5、输入替换内容和要替换的内容。

6、点击全部替换即可。

注意事项：

Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。

热心网友时间：2023-08-22 09:14

'比如在范围 A1:D100
'把下面代码拷贝到后台宏，按F5执行就OK
public sub test()
FOR EACH S IN RANGE("A1:D100")
if s = "one" then range(s.address)="1"
if s = "Thank you" then range(s.address)="谢谢"
if s = "me" then range(s.address)="我"
next
end sub追问没用只有整个单元格的数据=one时才能替换=oneS就不能替换，而且还区分大小写，=One时也不能替换！

追答s = "one"

改成 ucase(s) like "*ONE*"
其他的类似改

热心网友时间：2023-08-22 09:15

办法如下，先找个英语翻译的库，你自己做成适当的数据库，英文与中文各为一个数据字段

用VBA查询数据库，找到对应的，把对应的中文写进去，追问数据库就有点麻烦了，如果？直接编辑成楼上这样：
if s = "one" then range(s.address)="1"
if s = "Thank you" then range(s.address)="谢谢"
if s = "me" then range(s.address)="我"

追答你有一千条哦，难道用一千个IF？

热心网友时间：2023-08-22 09:16

如果我只要替换ONE的内容，其他内容保持不变，该怎样来写？

热心网友时间：2023-08-22 09:16

用查找替换最方便而且特快啊