Question

EXCEL VBA 批量替换单元格内容

如果单元格中含有“one”则将“one”替换为“1 ”，
如果有“Thank you”则替换为“谢谢”
如果有“me”则替换为“我”
以下省略一千条。。。。。。

最好能不区分大小写，这样的话,me和Me 就都能替换为"我"了

等待高人解答，非常感谢！

Answer 1

1、准备数据。

2、选中数据。

3、按ctrl+h组合键。

4、打开替换界面。

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

6、点击全部替换即可。

注意事项：

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

Answer 2

'比如 在范围 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*"
其他的类似改

Answer 3

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

用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？

Answer 4

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

Answer 5

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