求助各位大神怎么样每月的工资表格用公式汇总到一起！！！

丑的拉低GDP · 发表于 2016-12-13 16:14

要把每个月的工资表格现汇总到一个表格中，涉及人员数量较多、入离职导致每月人员不一致等因素，特虚心向诸位大神请教如何用公式快速汇总到一起，请大神不吝指点一二，万分感谢！！！！！！！
示例附件已上传。

chxw68 · 发表于 2016-12-13 18:13

Sub test()
Dim r%, i%
Dim arr, brr
Dim mypath$, myname$
Dim d As Object
Set d = CreateObject("scripting.dictionary")
mypath = ThisWorkbook.Path & ""
myname = Dir(mypath & "*.xlsx")
Do While myname <> ""
If myname <> ThisWorkbook.Name Then
Set wb = GetObject(mypath & myname)
yf = Val(myname)
With wb
With .Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:b" & r)
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
ReDim brr(1 To 13)
brr(1) = arr(i, 1)
Else
brr = d(arr(i, 1))
End If
brr(yf + 1) = brr(yf + 1) + arr(i, 2)
d(arr(i, 1)) = brr
Next
End With
.Close False
End With
End If
myname = Dir()
Loop
With Worksheets("sheet1")
.UsedRange.Offset(1, 0).Clear
.Range("a2").Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
End With
End Sub

复制代码

chxw68 · 发表于 2016-12-13 18:15

楼主附件是很简单的模拟数据，供楼主参考吧。

microyip · 发表于 2016-12-13 19:03

chxw68 发表于 2016-12-13 18:15
楼主附件是很简单的模拟数据，供楼主参考吧。

你很勤快哦，好像楼主在求的是公式

chxw68 · 发表于 2016-12-13 19:24

microyip 发表于 2016-12-13 19:03
你很勤快哦，好像楼主在求的是公式

当练习题练练手。

jjmysjg · 发表于 2016-12-13 20:16

chxw68 发表于 2016-12-13 18:15
楼主附件是很简单的模拟数据，供楼主参考吧。

chxw68老师你好！
非常感谢你的答复。
我有个类似的问题，文件夹内的工作簿名称不规则，数量不定，能否也达到这样的效果。
详见附件，万谢！

chxw68 · 发表于 2016-12-13 20:45

jjmysjg 发表于 2016-12-13 20:16
chxw68老师你好！
非常感谢你的答复。
我有个类似的问题，文件夹内的工作簿名称不规则，数量不定，能否 ...

回家了看看。

jjmysjg · 发表于 2016-12-13 21:53

chxw68 发表于 2016-12-13 20:45
回家了看看。

谢谢chxw68老师。

chxw68 · 发表于 2016-12-13 22:11

详见附件。

jjmysjg · 发表于 2016-12-13 22:46

chxw68 发表于 2016-12-13 22:11
详见附件。

谢谢chxw68老师！
就是这个效果！

		自动登录	找回密码
密码			免费注册

[求助] 求助各位大神怎么样每月的工资表格用公式汇总到一起！！！