vba 统计数量 数据量大，用了"SUMPRODUCT"运行太慢

于箱长

ykcbf1100 发表于 2024-5-6 14:51
统计个数的？

我是说：我也没看懂公式

ykcbf1100

于箱长 发表于 2024-5-6 17:49
我是说：我也没看懂公式

问题是确实就是统计个数的。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 7).End(xlUp).Row
   
6.         arr = .Range("g10:n" & r)
   
7.         ReDim brr(1 To UBound(arr), 1 To 1)
   
8.         For i = 1 To UBound(arr)
   
9.             For j = 1 To UBound(arr)
   
10.                 If i <> j Then
    
11.                     For k = 1 To UBound(arr, 2)
    
12.                         If arr(i, k) <= arr(j, k) Then
    
13.                             brr(i, 1) = brr(i, 1) + 1
    
14.                         End If
    
15.                     Next
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.         .Range("r10").Resize(UBound(brr), UBound(brr, 2)) = brr
    
20.     End With
    
21. End Sub
    

复制代码

quqiyuan

利用数组进行计算

chxw68

刚学会这个函数，检验一下。