请教老师们，请问如何批量替换某个颜色的词呢？

pdr7

每个单元格里都有一个蓝色的词，我想批量把这些蓝色的词都替换成另一个词，一共可能要替换几千行，具体请看附件

批量替换某个颜色的词.rar (10.38 KB, 下载次数: 10)

2018-10-11 17:45 上传

点击文件名下载附件

ww87725244

同一句中会不会存在两个张三的词语？

pdr7

ww87725244 发表于 2018-10-11 18:18
同一句中会不会存在两个张三的词语？

每个句子里只有一个蓝色的词，而且这个句子本身不包含需要替换的词，也就是说句子里原本是没有张三的。

lsc900707

pdr7 发表于 2018-10-11 18:25
每个句子里只有一个蓝色的词，而且这个句子本身不包含需要替换的词，也就是说句子里原本是没有张三的。

1. Sub gj23w98()
   
2.     For i = 2 To Cells(Rows.Count, 1).End(3).Row
   
3.         For j = 1 To Cells(i, 1).Characters.Count
   
4.             If Cells(i, 1).Characters(j, 2).Font.Color = vbBlue Then
   
5.                 Cells(i, 1).Characters(j, 2).Text = [c2]
   
6.                 Exit For
   
7.             End If
   
8.         Next
   
9.     Next
   
10. End Sub

复制代码

pdr7

lsc900707 发表于 2018-10-11 19:28

你好，测试了一下代码只能替换前两个字，比如把“小明要回家” 替换成“张三去购物”，会变成“张三要购物要回家”

lsc900707

pdr7 发表于 2018-10-11 19:53
你好，测试了一下代码只能替换前两个字，比如把“小明要回家” 替换成“张三去购物”，会变成“张三要购 ...

那就 要把Characters(j, 2)改成Characters(j, 5)