求高人帮助，多列数据双条件分类计数

zzzxxxmmm · 发表于 2024-2-7 00:51

本帖最后由 zzzxxxmmm 于 2024-2-7 05:00 编辑

求高人帮助，多列数据双条件分类计数。数据在sheet1，要达到的要求在sheet2。分学科分班级分别统计等级为ABCDE的人数（计数）。班级和人数根据年级不同，可能变化。等级ABCDE是固定的。。。我用函数=COUNTIS()，修改参数太复杂。。求大神出手帮忙，，谢谢。

无关岁月 · 发表于 2024-2-7 07:55

右拉下拉

=COUNTIFS(OFFSET(Sheet1!$C:$C,,MATCH(LOOKUP("做",$A$3:$A3),Sheet1!$D$1:$N$1,)),C$2,Sheet1!$C:$C,$B3)

复制代码

liulang0808 · 发表于 2024-2-7 08:04

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("Sheet1").UsedRange
For i = 4 To 13
      Set d(arr(1, i)) = CreateObject("scripting.dictionary")
      For j = 2 To UBound(arr)
         If Not d(arr(1, i)).exists(arr(j, 3)) Then
            Set d(arr(1, i))(arr(j, 3)) = CreateObject("scripting.dictionary")
         End If
         d(arr(1, i))(arr(j, 3))(arr(j, i)) = 1 + d(arr(1, i))(arr(j, 3))(arr(j, i))
      Next j

Next i
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(2).Select
Sheets(2).UsedRange.Offset(2).Clear
r = 2
For Each k In d.keys
      rx = r + 1
      Cells(rx, 1) = k
      For Each kk In d(k).keys
         r = r + 1
         Cells(r, 2) = kk
         For i = 3 To 7
            Cells(r, i) = d(k)(kk)(Cells(2, i).Value) + 0
         Next i
      Next kk
      Range(Cells(rx, 1), Cells(r, 1)).Merge
Next k
Sheets(2).UsedRange.Borders.LineStyle = xlContinuous
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

liulang0808 · 发表于 2024-2-7 08:05

双条件多列分类计数.zip (43.41 KB, 下载次数: 32)

fzxba · 发表于 2024-2-7 08:17

双条件多列分类计数.zip (42.15 KB, 下载次数: 21)

zzzxxxmmm · 发表于 2024-2-7 08:19

谢谢，各位大神的帮助，，万分感谢！！！！

zzzxxxmmm · 发表于 2024-2-7 08:30

无关岁月发表于 2024-2-7 07:55
右拉下拉

谢谢，我试试，函数也很好的。。。

zzzxxxmmm · 发表于 2024-2-7 08:31

liulang0808 发表于 2024-2-7 08:05

谢谢，很好用，就是我要的效果。

zzzxxxmmm · 发表于 2024-2-7 08:33

fzxba 发表于 2024-2-7 08:17

谢谢，很好用，就是我要的效果。

x-xx-xx · 发表于 2024-2-7 10:26

		自动登录	找回密码
密码			免费注册

[求助] 求高人帮助，多列数据双条件分类计数

评分

评分