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

Zzhtg

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

Excel_muke

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

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

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

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

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

hugeinfo

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

xsdyy

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

3190496160

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

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

2024-7-5 10:39 上传

点击文件名下载附件

Zzhtg

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

大神 这个很好用  我数据后面又加了一些列 如何设置适配

Zzhtg

Zzhtg 发表于 2024-11-13 14:47
大神 这个很好用  我数据后面又加了一些列 如何设置适配

找到修改的位置了  谢谢大佬