批量进行对应替换？

王海海彭霞霞

批量对应替换.zip (9.65 KB, 下载次数: 10)

2018-9-26 22:20 上传

点击文件名下载附件
sheet2对应关系替换sheet1

怎样进行批量对应替换，看了很多写了代码的，我总是不成功，请大师帮忙？

不知道为什么

这么惜字如金，能解决问题？

不把需求说明白，如何知道你想要什么？

lsc900707

是这个意思吧：

1. Sub 字典修改()
   
2.     Dim arr, brr
   
3.     Dim d As Object
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     brr = Sheets("sheet2").[a1].CurrentRegion
   
6.     For i = 1 To UBound(brr)
   
7.         d(brr(i, 1)) = brr(i, 2)
   
8.     Next
   
9.     arr = Sheets("sheet1").UsedRange
   
10.     For i = 2 To UBound(arr)
    
11.         For j = 3 To UBound(arr, 2)
    
12.             If d.exists(arr(i, j)) Then arr(i, j) = d(arr(i, j))
    
13.         Next
    
14.     Next
    
15.     Sheets("sheet1").UsedRange = arr
    
16. End Sub

复制代码

lsc900707

代码在审核，先测试附件吧：

王海海彭霞霞

是将sheet1中按照sheet2中的对应关系进行替换。即“A/B卷情况”替换成“1”，“正常情况”替换成“2”

王海海彭霞霞

lsc900707 发表于 2018-9-27 06:45
是这个意思吧：

不成功啊？