如何进行分类统计？

lion118

具体要求见文件。 数据统计.rar (109.19 KB, 下载次数: 8)

2024-7-17 10:24 上传

点击文件名下载附件

ykcbf1100

人数统计。。。

ykcbf1100

人数统计

1. Sub ykcbf()   '//2024.7.17   人数统计
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set d1 = CreateObject("Scripting.Dictionary")
   
5.     num1 = 11000: num2 = 19000
   
6.     With Sheets("原始数据")
   
7.         r = .Cells(Rows.Count, 2).End(3).Row
   
8.         c = .UsedRange.Columns.Count
   
9.         arr = .[a1].Resize(r, c)
   
10.     End With
    
11.     For i = 2 To UBound(arr)
    
12.         For j = 3 To UBound(arr, 2) Step 2
    
13.             s = arr(i, 2) & "|" & arr(1, j)
    
14.             If arr(i, j + 1) <= num1 Then
    
15.                 d(s) = d(s) + 1
    
16.             End If
    
17.             If arr(i, j + 1) <= num2 Then
    
18.                 d1(s) = d1(s) + 1
    
19.             End If
    
20.         Next
    
21.     Next
    
22.     With Sheets("统计结果")
    
23.         r = .Cells(Rows.Count, 2).End(3).Row
    
24.         c = .UsedRange.Columns.Count
    
25.         arr = .[a1].Resize(r, c)
    
26.         For i = 2 To UBound(arr) Step 2
    
27.             For j = 3 To UBound(arr, 2)
    
28.                 s = arr(i, 1) & "|" & arr(1, j)
    
29.                 arr(i, j) = d(s)
    
30.                 arr(i + 1, j) = d1(s)
    
31.             Next
    
32.         Next
    
33.         .[a1].Resize(r, c) = arr
    
34.     End With
    
35.     Set d = Nothing
    
36.     Set d1 = Nothing
    
37.     Application.ScreenUpdating = True
    
38.     MsgBox "OK！"
    
39. End Sub
    
40. 
    

复制代码

lion118

ykcbf1100 发表于 2024-7-17 10:45
人数统计。。。

厉害，请问，如何按照要求生成统计结果新表，而不是填写到已经设置好统计结果表中。

lion118

ykcbf1100 发表于 2024-7-17 10:45
人数统计。。。

还有，如何实现在总分名次11000前提下统计相应学科11000的人数。而不是简单统计学科11000和19000的人数。谢谢

lion118

ykcbf1100 发表于 2024-7-17 10:45
人数统计。。。

您发的在统计有的学科人数超过了总分的人数。

ykcbf1100

lion118 发表于 2024-7-17 11:32
您发的在统计有的学科人数超过了总分的人数。

如果有这种情况，那应该是数据本身的问题。

longwin

参与一下。。。。

kyxfyzg

Sub a()
Dim d As New Dictionary, dd As New Dictionary
With Sheets("原始数据")
arr = .UsedRange
For i = 3 To UBound(arr, 2)
    If arr(1, i) <> "名次" Then
        d(arr(1, i)) = i + 1
    End If
Next i
ls = d.Items
For i = 2 To UBound(arr)
    dd(arr(i, 2)) = ""
Next i
bj = dd.Keys
For j = 0 To UBound(ls)
    For i = 0 To UBound(bj)
        n = WorksheetFunction.CountIfs(.Columns(2), bj(i), .Columns(ls(j)), "<11000")
        m = WorksheetFunction.CountIfs(.Columns(2), bj(i), .Columns(ls(j)), "<19000")
        If n <> 0 Then Sheets("统计结果").Cells(2 + 2 * i, 3 + j) = n
        If m <> 0 Then Sheets("统计结果").Cells(3 + 2 * i, 3 + j) = m
    Next i
Next j
End With

End Sub

lion118

longwin 发表于 2024-7-17 12:59
参与一下。。。。

您好，可能我表述的不清楚，我的意思是总分11000是个大前提，在这个大前提下，再统计总分11000以前的学生里单科名次11000以前有多少，同样总分19000的前提下，单科19000的人数有多少。统计单科人数时都需要考虑是否满足总分11000和19000这个大前提。