[已解决]用VBA将工作表一次替换多个词

guogongyi

用VBA将工作表一次替换多个词，词数不限，按AB列对应替换
1.用“新词”来替换“原词”，将本活动工作中“原内容”替换后，变成“替换的结果”。
2.替换过程中，应有选定范围的过程。谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-12 18:45

Sub Macro1()
Dim arr, rng As Range, i&
arr = Range("a2:b" & Range("a65536").End(xlUp).Row)
Set rng = Range("c2:c" & Range("c65536").End(xlUp).Row)
For i = 1 To UBound(arr)
    rng.Replace arr(i, 1), arr(i, 2)
Next
End Sub

跳转到最佳答案楼层

开心妙妙

工作表一次替换多个词.rar (8.37 KB, 下载次数: 18)

2014-10-12 15:26 上传

点击文件名下载附件

guogongyi

开心妙妙 发表于 2014-10-12 15:26

里面没有宏啊

dsmch

1. Sub Macro1()
   
2. Dim arr, rng As Range, i&
   
3. arr = Range("a2:b" & Range("b65536").End(xlUp).Row)
   
4. Set rng = Range("c2:c" & Range("c65536").End(xlUp).Row)
   
5. For i = 1 To UBound(arr)
   
6.     rng.Replace arr(i, 1), arr(i, 2)
   
7. Next
   
8. End Sub

复制代码

guogongyi

dsmch 发表于 2014-10-12 16:41

老师，单词对应单词替换没问题，很好。但单词替换成空值不行，比如例子中“好人”替换空值时，不变化。你给再看看，怎么样才行？谢谢

原词	新词	原内容	替换后的结果
吉林	辽宁	吉林省	辽宁省
延吉人民	永吉人民	延吉人民好	永吉人民好
好人		好事好人	好事

dsmch

Sub Macro1()
Dim arr, rng As Range, i&
arr = Range("a2:b" & Range("a65536").End(xlUp).Row)
Set rng = Range("c2:c" & Range("c65536").End(xlUp).Row)
For i = 1 To UBound(arr)
    rng.Replace arr(i, 1), arr(i, 2)
Next
End Sub

guogongyi

dsmch 发表于 2014-10-12 18:45
Sub Macro1()
Dim arr, rng As Range, i&
arr = Range("a2:b" & Range("a65536").End(xlUp).Row)

非常好，谢谢，真高手