数据统计

khuutd

公式=COUNTA(UNIQUE(FILTER($B$2:$B$17,$A$2:$A$17=E2)))可以

IE_Crayon

高版本：
E2=UNIQUE(A2:A17)
F2=COUNTA(UNIQUE(IF($A$2:$A$17=E2,$B$2:$B$17,"")))-1 下拉

3190496160

Sub tj()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
ReDim arr(1 To Sheets.Count)
With Sheets("Sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "数据源为空！": End
    ar = .Range("a1:b" & r)
    For i = 2 To UBound(ar)
        If ar(i, 1) <> "" Then
            If d(ar(i, 1)) = "" Then
                d(ar(i, 1)) = ar(i, 2)
            Else
                d(ar(i, 1)) = d(ar(i, 1)) & "|" & ar(i, 2)
            End If
        End If
    Next i
    Dim br()
    ReDim br(1 To d.Count, 1 To 2)
    For Each k In d.keys
        dc.RemoveAll
        rr = Split(d(k), "|")
        n = n + 1
        br(n, 1) = k
        For s = 0 To UBound(rr)
            dc(rr(s)) = ""
        Next s
        br(n, 2) = dc.Count
    Next k
    [e2:510000] = Empty
    .[e2].Resize(n, 2) = br
End With
Application.ScreenUpdating = True

End Sub

3190496160

222.rar (18.5 KB, 下载次数: 4)

2024-4-3 12:02 上传

点击文件名下载附件

沈默00

无关岁月

1. =COUNT(0/(MATCH(E2&B$2:B$17,A$2:A$17&B$2:B$17,)=ROW($1:$16)))

复制代码

沈默00

VBA已经有老师写过了，数据透视表方法如下

小愚2025

khuutd 发表于 2024-4-3 11:11
公式=COUNTA(UNIQUE(FILTER($B$2:$B$17,$A$2:$A$17=E2)))可以

感谢感谢，终于解决了

小愚2025

IE_Crayon 发表于 2024-4-3 11:35
高版本：
E2=UNIQUE(A2:A17)
F2=COUNTA(UNIQUE(IF($A$2:$A$17=E2,$B$2:$B$17,"")))-1 下拉

搞定了，感谢

小愚2025

3190496160 发表于 2024-4-3 12:02

好了，谢谢大佬