提取有条件去重统计人数

chenyin0824

mytto88

=SUMIF($B$11:$B$3124,$C3,$E$11:$E$3124)

chenyin0824

mytto88 发表于 2019-8-7 14:25
=SUMIF($B$11:$B$3124,$C3,$E$11:$E$3124)

是按部门统计人数，一个人只能算一次（去重统计）

mytto88

chenyin0824 发表于 2019-8-7 17:40
是按部门统计人数，一个人只能算一次（去重统计）

Sub kk()
    Dim dic As Object, last_row As Long
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
        last_row = .Cells(Rows.Count, 2).End(3).Row
        arr = .Range("B11:F" & last_row).Value
        For i = 1 To UBound(arr)
            If dic.exists(arr(i, 1)) = False Then
                Set dic(arr(i, 1)) = CreateObject("scripting.dictionary")
            End If
            dic(arr(i, 1))(arr(i, 5)) = ""
        Next i
        For i = 3 To 7
            .Range("E" & i).Value = dic(.Range("c" & i).Value).Count
        Next i
    End With
    Set dic = noting
End Sub

FRC

mytto88 发表于 2019-8-8 11:24
Sub kk()
    Dim dic As Object, last_row As Long
    Set dic = CreateObject("scripting.diction ...

有木有公式能都达成这个效果？

mytto88

FRC 发表于 2019-8-8 11:31
有木有公式能都达成这个效果？

不晓得 ，公式水平不行

FRC

mytto88 发表于 2019-8-8 14:30
不晓得 ，公式水平不行

你谦虚了，VBA还得向你学习。