多条件查找

crystal16810

lsc900707 发表于 2021-11-26 06:00
“明细表里即使有两个相同数据的行，结果只呈现一个而不是两个结果的累加”
不是不累加吗？

大神，还想请教您：如果想求出sheet1的“代码”和“号码”与Sheet2的“代码”与“号码”同时匹配的次数，又该如何修改呢？非常感谢！

lsc900707

crystal16810 发表于 2021-11-26 11:55
大神，还想请教您：如果想求出sheet1的“代码”和“号码”与Sheet2的“代码”与“号码”同时匹配的次数， ...

d(s) = d(s) + arr(i,7) 改成：d(s) = d(s) + 1

crystal16810

lsc900707 发表于 2021-11-26 12:56
d(s) = d(s) + arr(i,7) 改成：d(s) = d(s) + 1

感谢大神的赐教，这个例子让我学习了三个知识点：1、多条件查找并汇总；2、多条件查找；3、多条件统计个数。非常感谢！我还要好好消化一下。

ericxzhou

1. Sub test()
   
2.     Dim i%, j%, k%, m%, d, arr
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     arr = Sheet2.[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         d(arr(i, 3) & "," & arr(i, 4)) = arr(i, 7)
   
7.     Next
   
8.     With Sheet1
   
9.         i = .[c65536].End(3).Row
   
10.         j = .[zz6].End(xlToLeft).Column
    
11.         arr = .Range(.[b6], .Cells(i, j))
    
12.         For k = 2 To UBound(arr)
    
13.             For m = 9 To UBound(arr, 2) Step 4
    
14.                 If d.exists(arr(k, 2) & "," & arr(1, m)) Then
    
15.                     arr(k, m) = d(arr(k, 2) & "," & arr(1, m))
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.          .Range(.[b6], .Cells(i, j)) = arr
    
20.     End With
    
21. End Sub

复制代码

crystal16810

ericxzhou 发表于 2021-11-26 13:30

感谢大神的赐教，是另一个多条件查找的方法！

crystal16810

lsc900707 发表于 2021-11-26 12:56
d(s) = d(s) + arr(i,7) 改成：d(s) = d(s) + 1

大神，还有问题需要请教呢，为何d(s) = d(s) + arr(i,7) 改成：d(s) = Application.WorksheetFunction.Average(d(s) + arr(i, 7))或者改为：d(s) = (d(s) + arr(i, 7)) / (d(s) + 1)都不能计算出平均值呢？感谢！