通过字典替换本工作簿所有内容

chengcaizilu

        本公司做外贸的同事每天要翻译很多BOM清单，其实大多数的清单版本都是一样的，半部分只是数据不一样。但每次都需要翻译。我想把经常需要翻译到的内容做个中英对照表，然后通过字典批量全部替换掉。 少数特殊的内容就手动修改下，这样至少可以减少90%的工作。 由于公司保密，所以就不能上传源文件，还请谅解。希望朋友能帮忙解决，谢谢！

wdx223

1. Sub TiHuan()
   
2. Dim dic, data, i&, wkt As Worksheet, mycell As Range
   
3. 
   
4. data = ThisWorkbook.Worksheets("字典").UsedRange
   
5. Set dic = CreateObject("Scripting.Dictionary")
   
6. For i = 1 To UBound(data)
   
7.     dic(data(i, 1) & "") = data(i, 2)
   
8. Next i
   
9. For Each wkt In ThisWorkbook.Worksheets
   
10.     If wkt.Name <> "字典" Then
    
11.         For Each mycell In wkt.UsedRange
    
12.             If dic.exists(mycell & "") Then mycell = dic(mycell & "")
    
13.         Next mycell
    
14.     End If
    
15. Next wkt
    
16. 
    
17. End Sub

复制代码

chengcaizilu

wdx223 发表于 2017-3-2 10:17

好用，非常感谢！

blackttea1

做个记号，谢谢！

zhy8138

记号一下~~~