如何根据H列的内容自动统计A:D的数据

cdhilite

请问大侠们：如何根据H列的内容在I-L中自动统计A:D的数据？谢谢！

chxw68

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

复制代码

chxw68

详见附件。

cdhilite

chxw68 发表于 2023-2-1 10:23
详见附件。

非常感谢老师！很好！另外如果统计数不在一个sheet内又该如何更改呢？谢谢！

ykcbf1100

字典来一个。