求助各位前辈，遇到了点问题，如何实现多个工作表内相同种类物品汇总

终于找到你

这个EXCEL里面有三个工作表，，如何实现将三个工作表内相同的内容的数量汇总，将汇总后的数据填入一个新的表里，，，

而且以后工作表的数量还会增加

终于找到你

朱荣兴 发表于 2018-6-15 14:36
根据什么来汇总？？？类别？还是编码？？

可根据编码汇总

AVEL

可以换种模式制表的，我看你每个表格的样式标题都一样，那再加一列人员就好了，将你现在每个工作表里面的内容都合并到一张表，那就轻松搞定了。

终于找到你

AVEL 发表于 2018-6-15 14:41
可以换种模式制表的，我看你每个表格的样式标题都一样，那再加一列人员就好了，将你现在每个工作表里面的内 ...

因为这个是一个发货单，每一个工作表对应一个客户，做汇总表是要出库用的

终于找到你

朱荣兴 发表于 2018-6-15 14:58
说实话，你的问题，只能猜
删除多余的工作表，新建一个   汇总   工作表
Sub 汇总()

解释下  这三个工作表对应的是3个客户  每个工作表最终是要单独发给不同的客户  现在就是要做一个汇总表给我们仓库用来出货

不知道为什么

终于找到你 发表于 2018-6-15 15:10
解释下  这三个工作表对应的是3个客户  每个工作表最终是要单独发给不同的客户  现在就是要做一个汇总表 ...

看着都着急，老师帮你写好了，你又来解释 ！

终于找到你

不知道为什么 发表于 2018-6-15 15:13
看着都着急，老师帮你写好了，你又来解释 ！

感谢，感谢

AVEL

1. Sub hz()
   
2.     Dim sh As Worksheet, shn As String
   
3.     Dim arr As Variant, i As Integer, j As Integer, k As Integer
   
4.     Dim jg(1 To 10000, 1 To 7)
   
5.     shn = Me.Name
   
6.     For Each sh In Sheets
   
7.         With sh
   
8.             If .Name <> shn Then
   
9.                 arr = .[a1].CurrentRegion.Value
   
10.                 For i = 2 To UBound(arr)
    
11.                     k = k + 1
    
12.                     For j = 1 To 7
    
13.                         jg(k, j) = arr(i, j)
    
14.                         If arr(i, 1) = "" Then jg(k, 1) = jg(k - 1, 1)
    
15.                         If arr(i, 2) = "" Then jg(k, 2) = jg(k - 1, 2)
    
16.                     Next
    
17.                 Next
    
18.             End If
    
19.         End With
    
20.     Next
    
21.     [a1].CurrentRegion.Clear
    
22.     Sheet1.[a1:h1].Copy [a1]
    
23.     [a2].Resize(k, 7).Value = jg
    
24.     PivotTables("数据透视表1").PivotCache.Refresh
    
25. End Sub

复制代码

弄了个透视表，