[已解决]用VBA数组字典实现多条件查找

laoau138

用VBA数组字典实现多条件查找

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-20 23:29

1. Sub test()
   
2. Dim arr, brr
   
3. Dim i&, j&
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. arr = [A1].CurrentRegion
   
6. brr = [A11].CurrentRegion
   
7. For i = 2 To UBound(arr)
   
8.     d(arr(i, 1) & arr(i, 2)) = i
   
9. Next
   
10. For j = 2 To UBound(brr)
    
11.     If d.Exists(brr(j, 1) & brr(j, 2)) Then
    
12.         m = d(brr(j, 1) & brr(j, 2))
    
13.         brr(j, 3) = arr(m, 3)
    
14.         brr(j, 4) = arr(m, 4)
    
15.     End If
    
16. Next
    
17. [A11].Resize(UBound(brr), 4) = brr
    
18. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

你是EP的学员？

laoau138

望帝春心 发表于 2017-6-20 14:16
你是EP的学员？

什么，我看不懂，听不懂

望帝春心

laoau138 发表于 2017-6-20 14:51
什么，我看不懂，听不懂

这是本论坛培训班讲课的示例文件，不知道你从何得来？所以问问你是不是培训班的学员

laoau138

望帝春心 发表于 2017-6-20 15:07
这是本论坛培训班讲课的示例文件，不知道你从何得来？所以问问你是不是培训班的学员

这个不重要，最重要答案

chart888

1. Sub test()
   
2. Dim arr, brr
   
3. Dim i&, j&
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. arr = [A1].CurrentRegion
   
6. brr = [A11].CurrentRegion
   
7. For i = 2 To UBound(arr)
   
8.     d(arr(i, 1) & arr(i, 2)) = i
   
9. Next
   
10. For j = 2 To UBound(brr)
    
11.     If d.Exists(brr(j, 1) & brr(j, 2)) Then
    
12.         m = d(brr(j, 1) & brr(j, 2))
    
13.         brr(j, 3) = arr(m, 3)
    
14.         brr(j, 4) = arr(m, 4)
    
15.     End If
    
16. Next
    
17. [A11].Resize(UBound(brr), 4) = brr
    
18. End Sub

复制代码

laoau138

chart888 发表于 2017-6-20 23:29

用VBA数组或字典计算A列数字数字连续次数

http://www.excelpx.com/thread-431340-1-1.html