如何快速加总10张工资表？

hncs01 · 发表于 2015-2-5 22:27

本帖最后由 hncs01 于 2015-2-5 23:07 编辑

问题是这样的：我是单位搞劳资的，在年终计算个人全年总收入时，有10张工资表（每个人10笔不同的钱，分别在10张工资表中，单位有200多号人），如何快速把这10张工资加总，计算出每个人一年的总收入呢？　表的格式一样，我做了10个样表，只是实际表格金额不一样，人数不一样。

TomingTang · 发表于 2015-2-5 22:42

批量汇总工作表。
了论坛上搜一下。

或者如果工作表名有规律。可以用sum+indirect

上传样例工作表。

朱荣兴 · 发表于 2015-2-5 22:46

提示: 作者被禁止或删除内容自动屏蔽

蒙蒙烟雪 · 发表于 2015-2-5 23:10

字典可以搞定

hncs01 · 发表于 2015-2-5 23:40

蒙蒙烟雪发表于 2015-2-5 23:10
字典可以搞定

表示不明白？

蒙蒙烟雪 · 发表于 2015-2-6 10:06

hncs01 发表于 2015-2-5 23:40
表示不明白？

啟用宏，點按鈕

Sub test()
Dim Arr, d As Object, ws As Worksheet, r&
Set d = CreateObject("scripting.dictionary")
For Each ws In Sheets
If ws.Name <> "Huizong" Then
Arr = ws.[a1].CurrentRegion
For r = 2 To UBound(Arr)
d(Arr(r, 1)) = d(Arr(r, 1)) + Arr(r, 2)
Next
End If
Next
With Sheets("Huizong")
.Cells.ClearContents
.[a1:b1] = Array("姓名", "金额")
.[a2].Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.items))
End With
End Sub

复制代码

蒙蒙烟雪 · 发表于 2015-2-6 10:07

附件。。

10.rar (11.79 KB, 下载次数: 63)

hncs01 · 发表于 2015-2-7 17:21

蒙蒙烟雪发表于 2015-2-6 10:07
附件。。

你好，我电脑水平低，也不懂VBA，不会做宏，你能详细地告诉这怎么用吗？可以发个邮件我吗？我qq 110496677,要是我学会了，工作可就高效多了，谢谢了，

hncs01 · 发表于 2015-2-7 17:21

蒙蒙烟雪发表于 2015-2-6 10:06
啟用宏，點按鈕

你好，我电脑水平低，也不懂VBA，不会做宏，你能详细地告诉这怎么用吗？可以发个邮件我吗？我qq 110496677,要是我学会了，工作可就高效多了，谢谢了，

lolita_yuanwei · 发表于 2015-2-7 23:58

直接用数据中的合并计算就可以

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2015-2-5 22:46 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 如何快速加总10张工资表？