如何用数据透视表的多重合并汇总,谢谢了!

WXY075675

请教如何用数据透视表的多重合并汇总,谢谢了!

活在理想的世界

1、把数据合并在一起；
2、插入透视表；
3、拖拽。

WXY075675

活在理想的世界 发表于 2017-2-26 17:38
1、把数据合并在一起；
2、插入透视表；
3、拖拽。

是先要把所有的数据汇总到一个表里吗?不能选多表吗?

活在理想的世界

这段代码可以帮你导入数据

1. Sub 导入数据()
   
2. Dim SHT As Worksheet
   
3. Dim K, X As Long
   
4. Dim N, M As String
   
5. N = ActiveSheet.Name
   
6. M = ActiveWorkbook.Name
   
7. For Each SHT In Sheets
   
8. If Left(Right(M, 4), 1) = "x" Then
   
9.     X = 1048576
   
10. Else
    
11.     X = 65536
    
12. End If
    
13. K = Sheets(N).Range("A" & X).End(xlUp).Row
    
14.     If SHT.Name <> N Then
    
15.     行 = SHT.Range("A" & X).End(xlUp).Row
    
16.     列 = SHT.Range("A1").End(xlToRight).Column
    
17.         SHT.Range("A1").Resize(1, 列).Copy Sheets(N).Range("A1")
    
18.         SHT.Range("A2").Resize(行, 列).Copy Sheets(N).Range("A" & K + 1)
    
19.     End If
    
20. Next
    
21. End Sub

复制代码

活在理想的世界

上面的代码在数据格式规范的情况下是通用的，如果你数据本身是乱七八糟的什么代码也没用。

WXY075675

活在理想的世界 发表于 2017-2-26 19:22
上面的代码在数据格式规范的情况下是通用的，如果你数据本身是乱七八糟的什么代码也没用。

非常感谢你的热心帮助!!!!!