灵感乍现 发表于 2021-10-22 10:51:00

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

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

山海远阔 发表于 2021-11-1 09:26:07


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

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

爷是吾 发表于 2021-11-11 12:09:37

Power Query肯定可以满足。

轩辕白杨 发表于 2021-11-20 04:54:54

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

哥沉默但哥不寂寞 发表于 2021-12-5 14:29:18

1、导入数据

2、选择数据

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

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

多臂熊 发表于 2021-12-10 10:39:04

在汇总表插入一个命令按钮。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..End(xlUp).Row
m = .End(xlUp).Row + 1
Cells(m, 1).Resize(Myr - 1, 17) = Sht..Resize(Myr - 1, 17).Value
End If
Next
Application.ScreenUpdating = True
End Sub

呆傻子 发表于 2021-12-30 22:33:03

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

骑蜗牛逛世界 发表于 2022-1-6 04:19:00

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

好吃不粘牙 发表于 2022-1-18 17:45:10

非常感谢！！！
页: [1]
查看完整版本: 如何将相同字段格式的不同sheet表汇总到一个表