如何将相同字段格式的不同sheet表汇总到一个表

灵感乍现

请教各位大神，如题所示，不同sheet表字段相同，怎么汇总到一个表，实现sheet表更新时，汇总表也同步更新的效果（注：如果某个sheet表中出现空格无数据时则会自动跳过，抓取另一个表格的数据）。尝试了一下Power Query和方方格子，可能是因为设置了数据有效性的原因，这两种方法不太可行。求助各位大神，是否可以通过公式设置实现。附件见下表

项目表.rar (26.58 KB, 下载次数: 167)

2021-10-22 10:51 上传

点击文件名下载附件
项目表.rar

山海远阔

PQ怎么可能合并不了，你要先把原来的表变成超级表，然后选择自表格啊

当然，如果你的汇总表如果不在这个表，那就不用事先变成超级表，可以选择从excel中导入

爷是吾

Power Query肯定可以满足。

轩辕白杨

可以回复下具体的步骤吗，不知道是哪个环节错了

哥沉默但哥不寂寞

1、导入数据

2、选择数据

3、点击转换数据
4、点追加为新查询

5、确定后点击关闭并上载，删除多余的sheet，仅保留合并后的sheet即可；
6、之后你源数据发生更新，你就刷新一下汇总数据即可；
注意由于你原始数据里就很多空行，所以汇总是追加的数据所以不会自动移除空行，建议比如地区是必填项，就在PQ最后一步添加一步筛选，筛选去除所有地区为空的行；
这样汇总后的数据就是这样的

多臂熊

在汇总表插入一个命令按钮。Private Sub CommandButton1_Click()
On Error Resume Next
Dim Sht As Worksheet, Myr&, m&
Application.ScreenUpdating = False
Range("a2:q65536").ClearContents
For Each Sht In Sheets
  If Sht.Name <> "汇总表" And Sht.Name <> "字典" Then
  Myr = Sht.[a65536].End(xlUp).Row
  m = [a65536].End(xlUp).Row + 1
  Cells(m, 1).Resize(Myr - 1, 17) = Sht.[a2].Resize(Myr - 1, 17).Value
  End If
Next
Application.ScreenUpdating = True
End Sub

呆傻子

还有一个问题是，我发现每个sheet表好像都要查询所有的单元格，导致加载的数据很慢，这个可以通过什么来解决？因为实际每个sheet表可能最多就是200条的数据，其实不用查询所有的单元格

骑蜗牛逛世界

原始表里空白数据删掉就行，选中第三行，ctrl+shift+下；删除就行，把每个sheet都操作一遍就没有那么多空白数据了

好吃不粘牙

非常感谢！！！