如何统计各部门各车间各工种的人数？

作者：绿色风分类：时间：2022-08-17 浏览：90

楼主
liuguansky

Q：如何把表一中的工种,有车间按车间,无车间按部门进行分别累加,然后把累加的数据填到表二相应的工种单元格中？
A：
用如下代码可以实现：

Sub justtest()
Dim dic, i&, arr, j&, k&, str1$, str2$
arr = [d2:u2].Value
Set dic = CreateObject("scripting.dictionary")
With Sheets(1)
For i = 3 To .Cells(.Rows.Count, 2).End(3).Row
str1 = .Cells(i, 4).Value & vbTab & .Cells(i, 5).Value & vbTab & .Cells(i, 7).Value
If dic.exists(str1) Then dic(str1) = dic(str1) + 1 Else dic.Add str1, 1
Next i
End With
k = Application.WorksheetFunction.Match("合计", Range("a:a"), 0) - 1
Range("d3:u" & k).ClearContents
For i = 3 To k
j = 1
Do Until j = UBound(arr, 2) + 1
str2 = Replace(IIf(Cells(i, 1) <> "", Cells(i, 1).Value, Cells(i, 1).MergeArea(1).Value), " ", "") _
& vbTab & Cells(i, 2).Value & vbTab
If dic.exists(str2 & arr(1, j)) Then
Cells(i, j + 3) = dic(str2 & arr(1, j))
End If
j = j + 1
Loop
Next i
Set dic = Nothing
End Sub

复杂的记数07.rar

复杂的记数.rar

2楼
yaoandxu2011

我下走了，去学学看看能不能简单的改改，用得上。我自己不会写。谢谢楼主啦。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表