求高手指导 社保缴纳明细表汇总

1lanyf

求高手汇总工作表，将表汇总到  汇总  工作表，谢谢！

zax010

Sub zz()
    Dim d, ar, br(1 To 1000, 1 To 25), sh As Worksheet
    Set d = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    For Each sh In Sheets
        If sh.Name <> "合计" Then
            ar = sh.[a5].CurrentRegion
            For i = 5 To UBound(ar) - 1
                s = ar(i, 2)
                If d(s) = "" Then
                    m = m + 1: d(s) = m: br(m, 1) = m
                    For j = 2 To UBound(ar, 2)
                        br(m, j) = ar(i, j)
                    Next
                Else
                    For j = 3 To UBound(ar, 2)
                        br(d(s), j) = br(d(s), j) + ar(i, j)
                    Next
                End If
            Next
        End If
    Next
    Sheet5.[a5].Resize(m, UBound(br, 2)) = br
    Application.ScreenUpdating = True
End Sub

zax010

社保缴纳明细表.rar (89.88 KB, 下载次数: 266)

2017-7-5 20:18 上传

点击文件名下载附件

lsc900707

1. 没看清题目要求，删除内容。

复制代码

1lanyf

lsc900707 发表于 2017-7-5 20:23

就是看附件里面有个汇总表，将其他几个表汇总到汇总表里面，谢谢！

1lanyf

zax010 发表于 2017-7-5 20:18

好厉害，谢谢！ 如果表有12张，怎么改公式呢？谢谢

zax010

1lanyf 发表于 2017-7-6 14:09
好厉害，谢谢！ 如果表有12张，怎么改公式呢？谢谢

不用改。

1lanyf

zax010 发表于 2017-7-6 15:38
不用改。

谢谢，确实不用改，很好用！
如果存在像这个附件里面表头不一样的情况，怎么弄呢？有没有通用的公式？谢谢

1lanyf

zax010 发表于 2017-7-5 20:18

还有我发现换一个格式，就汇总不了，帮忙看看，谢谢！

yhmdzbg3

学习学习！