麻烦各位老师写个分类汇总的代码！

5122213

我的附件一个工作簿有三个工作表，《人员名册》、《行政、参公分类统计》和《事业分类统计》。      如果《人员名册》G列（单位性质）为“行政”或“参公”，则根据《人员名册》H列（人员身份）和S列（职级）完成《行政、参公分类统计》表；      如果《人员名册》G列（单位性质）为“事业”，则根据《人员名册》T列（岗位）和N列（工资级别档次）完成《事业分类统计》表。
结果如附件的《行政、参公分类统计》《事业分类统计》一样，麻烦各位老师了。

3190496160

Sub 统计行政参公()
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
ar = Sheets("人员名册").[a1].CurrentRegion
Dim br()
ReDim br(1 To UBound(ar), 1 To 4)
For i = 5 To UBound(ar)
    If Trim(ar(i, 7)) = "行政" Or Trim(ar(i, 7)) = "参公" Then
        If Trim(ar(i, 8)) <> "" And Trim(ar(i, 19)) <> "" Then
            zf = Trim(ar(i, 8)) & "|" & Trim(ar(i, 19))
            t = d(zf)
            If t = "" Then
                k = k + 1
                d(zf) = k
                t = k
                If Not dc.exists(Trim(ar(i, 8))) Then
                    br(k, 1) = ar(i, 8)
                    dc(Trim(ar(i, 8))) = ""
                Else
                    br(k, 1) = ""
                End If
                br(k, 2) = ar(i, 19)
            End If
            br(t, 3) = br(t, 3) + 1
            If br(t, 4) = "" Then
                br(t, 4) = ar(i, 2)
            Else
                br(t, 4) = br(t, 4) & "、" & ar(i, 2)
            End If
        End If
    End If
Next i
With Sheets("行政、参公分类统计")
    .UsedRange.Offset(4).Clear
    .[b5].Resize(k, UBound(br, 2)) = br
End With
Set d = Nothing
Set dc = Nothing
MsgBox "ok!"
End Sub

3190496160

分类汇总.zip (26 KB, 下载次数: 34)

2021-4-25 12:05 上传

点击文件名下载附件

3190496160

只做了行政 参公的代码，其他的自己依样画葫芦吧

5122213

先谢谢了，到办公室再试试看。

5122213

3190496160 发表于 2021-4-25 12:06

试了一下，《人员名册》如果按人员类别顺序排序，统计是正确的，如果随意排序，就乱了。另外各类别人员没有进行小计。

3190496160

5122213 发表于 2021-4-25 17:26
试了一下，《人员名册》如果按人员类别顺序排序，统计是正确的，如果随意排序，就乱了。另外各类别人员没 ...

，《人员名册》如果按人员类别顺序排序，统计是正确的，如果随意排序，就乱了
稍微有一点代码常识的人，一看代码就知道，你这个说法是多么的外行，你自己好好看看吧，我把数据打乱，再运行代码，也没有乱呀，
当然，不知道你说的乱，是指什么？？？