如何有选择性的统计个数？

kvv57465729

求大神解答

kvv57465729

kvv57465729

求大佬解答

kvv57465729

只会写统计全部个数，但加上筛选条件，没有思路了

chxw68

kvv57465729 发表于 2024-5-11 18:57
只会写统计全部个数，但加上筛选条件，没有思路了

纯粹看不懂！

baofa2

1. Sub test0() '猜一个，不对就算了
   
2.   Dim ar, br(7, 6), cr(6) As Long
   
3.   Dim i As Long, j As Long, k As Long, p As Long, x As Long
   
4.   With Sheet1
   
5.     ar = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)).Value
   
6.   End With
   
7.   For i = 1 To UBound(ar) Step 19
   
8.     Erase br
   
9.     For j = i To i + (19 - 7)
   
10.       Erase cr
    
11.       For k = j To j + (7 - 1)
    
12.         cr(ar(k, 1)) = cr(ar(k, 1)) + 1
    
13.       Next
    
14.       For x = 0 To UBound(cr)
    
15.         If cr(x) Then br(cr(x), x) = 1
    
16.       Next
    
17.       If j = UBound(ar) - 6 Then Exit For
    
18.     Next
    
19.     Sheet2.Cells(p + 2, "B").Resize(UBound(br) + 1, UBound(br, 2) + 1) = br
    
20.     p = p + 12
    
21.   Next
    
22.   Beep
    
23. End Sub
    

复制代码