在同一个工作簿里，引用多个分表数据到一张总表中，并能实现分表数据更新后...

Zzhtg · 发表于 2024-7-4 17:01

各位大神，请帮忙解决下，急求，谢谢！谢谢！
现在有几张分表，都在同一个工作簿中，字段都是固定的几项
有1张总表，字段和分表一样
需要将分表的内容引用到总表中，并且能实现分表数据更新或修改，总表也自动更新。

Excel_muke · 发表于 2024-7-4 18:56

使用Power Query可以实现
1.选中分表，ctrl+T转成超级表，将所有分表转为超级表；

2.数据-自表格/区域，将所有表格上载到PowerQuery编辑器中；

3.检查字段类型是否准确，准确的话将几个表追加合并，开始-追加查询-将查询追加为新查询，完成后左上角关闭并上载；

4.生成表，数据-查询和连接-选中"汇总表"右键-加载到"表"，完成

5.只要有分表有数据增删改查操作，在汇总表处右键刷新就可以直接更新

hugeinfo · 发表于 2024-7-5 08:06

=FILTER(VSTACK(测试1:测试2!$A$3:$I$20000),VSTACK(测试1:测试2!$C$3:$C$20000)<>"") 根据数据的多少调整20000范围即可

xsdyy · 发表于 2024-7-5 08:56

假如总表和分表字段、顺序等完全一致，直接用把两个表的数据相加不就可以了吗？

3190496160 · 发表于 2024-7-5 10:38

Sub 汇总()
Dim ar As Variant
With ActiveSheet
.[a1].CurrentRegion.Offset(2) = Empty
For Each sh In Sheets
      If sh.Index > 1 Then
         r = sh.Cells(Rows.Count, 1).End(xlUp).Row
         If r > 2 Then
            ar = sh.Range("a3:i" & r)
            rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(rs, 1).Resize(UBound(ar), UBound(ar, 2)) = ar
         End If
      End If
Next sh
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-7-5 10:39

采购台账.rar (723.51 KB, 下载次数: 3)

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

[求助] 在同一个工作簿里，引用多个分表数据到一张总表中，并能实现分表数据更新后...