数据统计

小愚2025

沈默00 发表于 2024-4-3 13:25
VBA已经有老师写过了，数据透视表方法如下

被自己蠢哭了，竟然忘了这个，感谢

小愚2025

沈默00 发表于 2024-4-3 12:47

搞定了，感谢回复

小愚2025

无关岁月 发表于 2024-4-3 13:10

可以了，感谢

小愚2025

各位大佬真的是强的可怕，我还需要多多学习灌水啊

zhangcheng6688

学习一下字典，打扰
Sub test()
arr = [a2].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 2)
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
   s = arr(i, 1)
   s1 = arr(i, 2)
   If Not d.exists(s & "|" & s1) Then
      d(s) = d(s) + 1
      d(s & "|" & s1) = ""
   End If
Next
For Each k In d.keys
   If InStr(k, "|") = 0 Then
      m = m + 1
      brr(m, 1) = k
      brr(m, 2) = d(k)
   End If
Next
[e2].Resize(m, 2) = brr
End Sub

zhangcheng6688

学习一下字典嵌套，打扰了
Sub test()
arr = [a2].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   End If
   d(arr(i, 1))(arr(i, 2)) = ""
Next
For Each vkey In d.keys
   m = m + 1
   brr(m, 1) = vkey
   brr(m, 2) = d(vkey).Count
Next
[e2].Resize(m, 2) = brr
End Sub

mjm04

=COUNTA(UNIQUE(FILTER($B:$B,$A:$A=$E2)))

下拉