[求助]如何将不同的数据表格汇总

weisen191 · 发表于 2009-6-13 09:57

这个功能我看书看了两天了，还是不得要领，不知道同学中有没有擅长使用这个功能的？如果有，很希望能提前交流一下，工作中用的太多，现在只是一张张贴在一起，然后用透视表汇总，想提前学习一下，自己多试试，谢谢了，如果这个帖子不妥，麻烦老师帮删除了

dg831451 · 发表于 2009-6-13 10:13

是多个工作表要汇总到一个工作表上是吗？几个表格的格式是否都一样？列数是否一样？

weisen191 · 发表于 2009-6-13 10:31

是的，是多个工作表要汇总到同一张表上，表的列数我觉得是都一样的，但是按照第11张的讲解，只能汇总出一个大区的，汇总整个十大区的就会提示我不对，我又找不出原因。因为涉及到商业机密，我不知道如何上传我的表才合适。我平时要作的工作是
我举一年的例子，这个工作是经常作的，也是让我很头疼的一个，因为是提供给董事长的报表，与财务的稍有不同。

全年12个月，12张表
每张表里有10个大区（或许会有20个大区）
每个大区里面还有四五个或是更多的办事处

我最后想要的是全年的汇总表，格式为：大区、办事处、业务员、数量、金额

（这个格式算是最简单的，有可能还要细分到客户和产品）

可以这样说，就EXCEL而言，我的报表一张是装不下的，因为产品明细太多，这一二年我一直是用透视表作，但是就苦于不会外部链接，因为我没有任何编程方面的基础，都是安排人贴到一起，然后我再用透视表汇总，如果这个问题能够解决，我的工作就太方便了，谢谢老师

[ 本帖最后由 weisen191 于 2009-6-13 10:33 编辑 ]

zaq123 · 发表于 2009-6-13 11:53

dg831451 最擅长汇总表格了,如果涉及商业数据,你可以做一下产品(门店)名称及数据的技术处理,然后上传一下附件,看到附件大家才好进一步解决.

weisen191 · 发表于 2009-6-13 12:26

谢谢同学们，我试着处理一下，不过太多，需要些时间。刚才出去吃饭了，刚回来，争取下午能够上传附件。

zaq123 · 发表于 2009-6-13 12:30

原帖由 weisen191 于 2009-6-13 12:26 发表
谢谢同学们，我试着处理一下，不过太多，需要些时间。刚才出去吃饭了，刚回来，争取下午能够上传附件。

Ctrl+H很快的,

亡者天下 · 发表于 2009-6-13 12:59

你把你的附件上传上来啊，那样比较直观一点！

weisen191 · 发表于 2009-6-13 13:02

好了，我简单的处理了一下，只弄了两个月的，我想，老师或是同学们能够解答，大体思路我就可以了解一下，需要把1月和2月的汇总到那个汇总表内，作的格式我已在汇总表中列出，谢谢各位了。实际工作中的表要比这个复杂的多，不过，思路应该都差不多，在线等解答

，虽然已经处理了，但是怕有疏漏，还请下载老师和同学们只当练习例题使用，谢谢

完了，提示我大小超了，这才二个月的数据呢，我一个个传试试吧

2009年1月.rar (206.1 KB, 下载次数: 233)

2009年2月.rar (265.55 KB, 下载次数: 154)

汇总工作表.rar (1.45 KB, 下载次数: 169)

zaq123 · 发表于 2009-6-13 15:54

建议参照VBA

Sub FBHZ()
Dim arr, brr, d As Object, wb As Workbook, sht As Worksheet
Dim i As Integer, k, m As Integer
Dim lc As Integer, myPath As String, myFileName As String
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For Each sht In Sheets
      sht.UsedRange.Offset(2, 0).Clear
Next
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Data.xls")
ThisWorkbook.Activate
For Each sht In wb.Sheets
      arr = sht.UsedRange
      For i = 1 To UBound(arr, 2)
         If Not d.exists(arr(1, i)) Then
            Set d(arr(1, i)) = sht.Cells(3, i).Resize(UBound(arr) - 2)
         Else
            Set d(arr(1, i)) = Union(d(arr(1, i)), sht.Cells(3, i).Resize(UBound(arr) - 2))
         End If
      Next
      k = d.keys
      For i = 0 To d.Count - 1
         With Sheets(k(i))
            brr = .Cells(1, 1).Resize(1, .Range("IV1").End(xlToLeft).Column)
            m = 0
            For j = 1 To UBound(brr, 2)
                  If d.exists(brr(1, j)) Then
                     m = m + 1
                     If m = 1 Then d(brr(1, j)).Copy .Cells(65536, j).End(3).Offset(1)
                  End If
            Next
         End With
      Next
      d.RemoveAll
Next
wb.Close
Application.ScreenUpdating = True
MsgBox "结束"
End Sub

论坛上的,适用于2003

或者http://club.excelhome.net/viewthread.php?tid=446463&highlight=%BB%E3%D7%DC

dg831451的帖子

[ 本帖最后由 zaq123 于 2009-6-13 15:56 编辑 ]

weisen191 · 发表于 2009-6-13 16:07

原帖由 zaq123 于 2009-6-13 15:54 发表
建议参照VBA

Sub FBHZ()
Dim arr, brr, d As Object, wb As Workbook, sht As Worksheet
Dim i As Integer, k, m As Integer
Dim lc As Integer, myPath As String, myFileName As String
Se ...

天哪，这样看来是不是我根本不能自己完成这样的汇总啊，我不会VBA啊，我在透视表大全中看到的是使用SQL语句，但是用到这上面总觉得我有地方写的不对，这可怎么办啊

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