跨sheet自动取数汇总

809044328 · 发表于 2018-7-17 15:34

各位前辈、大神好。
每个月的工资表都是固定格式，但是人员较多，项目也较多，每次汇总统计某个人员或者部门的工资数据时i，总要先粘贴在一起再进行数据透视等操作。
请问是否可以帮忙写一段函数，实现每个月的工资表，在汇总表sheet中，自动汇总加和。不胜感激！谢谢！

809044328 · 发表于 2018-7-17 16:38

求帮助！！

看见星光 · 发表于 2018-7-17 16:41

809044328 发表于 2018-7-17 16:38
求帮助！！

表格的明细数据设置为数值格式，然后使用下面的公式就可以多表求和了。比如E3单元格

复制代码

chxw68 · 发表于 2018-7-17 16:41

809044328 发表于 2018-7-17 16:38
求帮助！！

汇总表是按人员编号汇总每个人所有月份的工资？还是按部门汇总某个月或所有月份的工资？不清楚！

809044328 · 发表于 2018-7-17 16:50

chxw68 发表于 2018-7-17 16:41
汇总表是按人员编号汇总每个人所有月份的工资？还是按部门汇总某个月或所有月份的工资？不清楚！

汇总页显示前面所有sheet页的信息。也就是不用手工复制粘贴到汇总页上了。

chxw68 · 发表于 2018-7-17 16:51

809044328 发表于 2018-7-17 16:50
汇总页显示前面所有sheet页的信息。也就是不用手工复制粘贴到汇总页上了。

就是把所有月份的工资数据复制过来就行了？

809044328 · 发表于 2018-7-17 17:07

对，把前面sheet表的数据，复制到汇总表一个sheet中

chxw68 · 发表于 2018-7-17 17:23

Sub test()
Dim r%, i%
Dim ws As Worksheet
Dim ws0 As Worksheet
Set ws0 = Worksheets("汇总表")
With ws0
.UsedRange.Offset(2, 0).Clear
End With
For Each ws In Worksheets
If ws.Name <> "汇总表" Then
With ws
r = .Cells(.Rows.Count, 1).End(xlUp).Row
c = .Cells(2, .Columns.Count).End(xlToLeft).Column
.Range("a3").Resize(r - 2, c).Copy ws0.Cells(ws0.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
End If
Next
End Sub

复制代码

chxw68 · 发表于 2018-7-17 17:24

详见附件。

809044328 · 发表于 2018-7-17 17:33

实现了，谢谢！

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

[求助] 跨sheet自动取数汇总