复杂的多表汇总(难度有点大,做出来有分加哦)

kszcs · 发表于 2011-12-5 12:16

下载学习，看看

liuyuyu880210 · 发表于 2011-12-6 09:59

本帖最后由 liuyuyu880210 于 2012-6-5 21:30 编辑

请高手帮我看看这个不规则的汇总。根据设置好的表头汇总。

罗王阿诺 · 发表于 2013-2-19 15:03

发现这个有点意思，用佛山小老鼠老师的完美工具及彭希仁老师的7.3工具的SQL查询与汇总做出来了。先合并头两行和头两列，然后汇总结果，最后再去留汉字拆开成两行和两列，出结果。由于我不太VBA，见笑了。

/aiqleopold · 发表于 2014-5-28 21:59

For me,高难度！

37449782 · 发表于 2014-7-30 10:14

也来学习下

walle666 · 发表于 2015-12-2 18:29

学习了，谢谢

jjmysjg · 发表于 2017-4-3 06:07

再留记号，看高手的

zax010 · 发表于 2017-4-3 21:27

Sub zz()
Dim d, ar, br, sh As Worksheet, a, b
Set d = CreateObject("Scripting.Dictionary")
br = Sheet1.[b2:ai127]
For Each sh In Sheets
      If sh.Name <> "总表" Then
         ar = sh.Range("B1").CurrentRegion
         For i = 4 To UBound(ar) - 1
            If ar(i, 1) <> "" Then a = ar(i, 1)
            For j = 3 To UBound(ar, 2) - 1
                  If ar(2, j) <> "" Then b = ar(2, j)
                  d(a & ar(i, 2) & b & ar(3, j)) = d(a & ar(i, 2) & b & ar(3, j)) + ar(i, j)
            Next
         Next
      End If
Next
For i = 3 To UBound(br)
      If br(i, 1) <> "" Then a = br(i, 1)
      For j = 3 To UBound(br, 2)
         If br(1, j) <> "" Then b = br(1, j)
         br(i, j) = d(a & br(i, 2) & b & br(2, j))
      Next
Next
Sheet1.[b2:ai127] = br
End Sub

zax010 · 发表于 2017-4-3 21:31

向高手学习。

销量汇总 (2).rar (20.62 KB, 下载次数: 75)

明天，你好82 · 发表于 2019-5-8 01:05

高手过招，与众不同，太牛了

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

[讨论] 复杂的多表汇总(难度有点大,做出来有分加哦)