[已解决]求助-如何分类统计

飞云流水

如何按统计表的格式统计计数个数，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-18 12:16

1. 
   
2. Sub 计算()
   
3.     Dim A, B, i%, j%, k%
   
4.     With Sheets("数据")
   
5.         A = .Range("c2:o" & .Range("c65536").End(xlUp).Row)
   
6.     End With
   
7.     B = Sheets("统计").[a3:h8]
   
8.     For i = 1 To UBound(A)
   
9.         For j = 1 To UBound(B)
   
10.             If A(i, 1) = B(j, 1) Then
    
11.                 '找列
    
12.                 Select Case A(i, 13)
    
13.                 Case Is < 8
    
14.                     k = 2
    
15.                 Case Is < 12
    
16.                     k = 3
    
17.                 Case Is < 18
    
18.                     k = 4
    
19.                 Case Is < 24
    
20.                     k = 5
    
21.                 Case Is < 36
    
22.                     k = 6
    
23.                 Case Is < 48
    
24.                     k = 7
    
25.                 Case Else
    
26.                     k = 8
    
27.                 End Select
    
28.                 B(j, k) = B(j, k) + 1
    
29.             End If
    
30.         Next j
    
31.     Next i
    
32.     Sheets("统计").[a3].Resize(UBound(B), UBound(B, 2)) = B
    
33. End Sub

复制代码

求助-分类统计2.rar (13.06 KB, 下载次数: 59)

2012-2-18 12:16 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

1. 
   
2. Sub 计算()
   
3.     Dim A, B, i%, j%, k%
   
4.     With Sheets("数据")
   
5.         A = .Range("c2:o" & .Range("c65536").End(xlUp).Row)
   
6.     End With
   
7.     B = Sheets("统计").[a3:h8]
   
8.     For i = 1 To UBound(A)
   
9.         For j = 1 To UBound(B)
   
10.             If A(i, 1) = B(j, 1) Then
    
11.                 '找列
    
12.                 Select Case A(i, 13)
    
13.                 Case Is < 8
    
14.                     k = 2
    
15.                 Case Is < 12
    
16.                     k = 3
    
17.                 Case Is < 18
    
18.                     k = 4
    
19.                 Case Is < 24
    
20.                     k = 5
    
21.                 Case Is < 36
    
22.                     k = 6
    
23.                 Case Is < 48
    
24.                     k = 7
    
25.                 Case Else
    
26.                     k = 8
    
27.                 End Select
    
28.                 B(j, k) = B(j, k) + 1
    
29.             End If
    
30.         Next j
    
31.     Next i
    
32.     Sheets("统计").[a3].Resize(UBound(B), UBound(B, 2)) = B
    
33. End Sub

复制代码

求助-分类统计2.rar (13.06 KB, 下载次数: 59)

2012-2-18 12:16 上传

点击文件名下载附件

飞云流水

爱疯 发表于 2012-2-18 12:16

谢谢爱疯老师，你太有才了！

lily_bing

真的好厉害！学习学习．希望有一天我也能编出这样的程序来．