[已解决]请教老师这个查找对应值的代码还有什么解法更快

dfzc

看附件

Book1.zip (9.7 KB, 下载次数: 13)

2014-3-23 11:01 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-23 11:25

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("s4").CurrentRegion
   
5. brr = Range("it4").CurrentRegion
   
6. ReDim crr(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(brr)
   
8.     d(brr(i, 1)) = brr(i, 2)
   
9. Next
   
10. For i = 1 To UBound(arr)
    
11.     crr(i, 1) = d(arr(i, 1))
    
12. Next
    
13. Range("u4").Resize(UBound(crr)) = crr
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("s4").CurrentRegion
   
5. brr = Range("it4").CurrentRegion
   
6. ReDim crr(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(brr)
   
8.     d(brr(i, 1)) = brr(i, 2)
   
9. Next
   
10. For i = 1 To UBound(arr)
    
11.     crr(i, 1) = d(arr(i, 1))
    
12. Next
    
13. Range("u4").Resize(UBound(crr)) = crr
    
14. End Sub
    

复制代码

那么的帅

数组加循环快

dfzc

那么的帅 发表于 2014-3-23 11:32
数组加循环快

"数组加循环快"

哪么的帅老师给出代码实例来,好学习啊