筛选后，统计不重复个数

与狼共伍

用COUNTA(UNIQUE(D7:D35))，可以得到不重复个数，但筛选后用这个公式，统计的个数不变
需要在筛选后，得到筛选的不重复数据的个数，谢谢

ggw092

1. H4=COUNTA(UNIQUE(FILTER(D:D,C:C=G4)))

复制代码

博爱风雨同舟

=COUNTA(UNIQUE(FILTER(D7:D35,SUBTOTAL(3,OFFSET(D6,ROW($1:$29),)))))

风雨声点滴

Sub CountUniqueValuesAfterFilter()
    Dim rng As Range
    Set rng = Range("A1:A100") ' 更改为实际的范围
   
    ' 筛选数据
    rng.AutoFilter Field:=1, Criteria1:="<>"

    ' 创建一个字典对象用于存储不重复的值
    Dim uniqueValues As Object
    Set uniqueValues = CreateObject("Scripting.Dictionary")
   
    Dim visibleCells As Range
    On Error Resume Next
    ' 获取筛选后可见的单元格
    Set visibleCells = rng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
   
    If Not visibleCells Is Nothing Then
        Dim cell As Range
        ' 遍历可见单元格并将值存储到字典中
        For Each cell In visibleCells
            uniqueValues(cell.Value) = 1
        Next cell
    End If
   
    ' 获取不重复值的个数
    Dim countUnique As Long
    countUnique = uniqueValues.Count
   
    ' 显示结果
    MsgBox "筛选后不重复的个数为: " & countUnique

    ' 关闭筛选
    rng.AutoFilter
End Sub

丢丢表格

I1

=SUM(IF(SUBTOTAL(3,OFFSET(C$6,ROW($1:$29),))*(C$7:C$35=G4),1/COUNTIFS(D:D,D$7:D$35,C:C,G4)))


=COUNTA(UNIQUE(IF(SUBTOTAL(3,OFFSET(C$5,ROW(1:30),)),D6:D35,D6)))-1

quqiyuan

1. =COUNT(0/((MATCH($D$7:$D$35,IF($C$7:$C$35=G4,$D$7:$D$35),)=ROW($1:$29))))

复制代码

安若浅笑

=COUNTA(UNIQUE(FILTER(D:D,C:C=G4)))

与狼共伍

ggw092 发表于 2023-7-9 23:03

感谢大神，受教了

与狼共伍

风雨声点滴 发表于 2023-7-9 23:57
Sub CountUniqueValuesAfterFilter()
    Dim rng As Range
    Set rng = Range("A1:A100") ' 更改为实 ...

谢谢,不会用VA

与狼共伍

丢丢表格 发表于 2023-7-10 06:41
I1

=SUM(IF(SUBTOTAL(3,OFFSET(C$6,ROW($1:$29),))*(C$7:C$35=G4),1/COUNTIFS(D:D,D$7:D$35,C:C,G4)))

非常  感谢！