excel中，如何将每一工作表的明细数据都自动显示到一个总表中……

工作表1工作表2工作表3总表同一工作簿中，设置了一个总表（如图，总表）和多个分表（如图，工作表1、2、3），分表是用来打单的，我想把每一个分表的明细数据都自动显示到总表里... 工作表1

工作表2

工作表3

总表

同一工作簿中，设置了一个总表（如图，总表）和多个分表（如图，工作表1、2、3），分表是用来打单的，我想把每一个分表的明细数据都自动显示到总表里去，而且忽略空值，只显示有数据的…………

求大神帮忙！！展开





 我来答

1个回答

#热议# 普通体检能查出癌症吗？

biuul
2014-07-27 · TA获得超过251个赞

知道小有建树答主

回答量：444

采纳率：100%

帮助的人：174万

我也去答题访问个人页

关注

展开全部

一般就用复制吧
如果表格较多，格式一致，规律性又强
可以考虑用VBA宏来做

追问

嗯嗯，表格是挺多的，格式也是一致的……
请问用VBA宏怎么做？能具体说一下吗？

追答

编了一个给你
很多都作了假设
第一张为总表
你可以根据实际情况作修改
 
Sub Macro1()
    rr = 4 '要采集数据的首行
    r1 = 4 '存放第一张表数据的首行
    shn = ThisWorkbook.Sheets.Count
    
    For sh = 2 To shn '假设要把后面表的数据采集到第一张表
        ran = ThisWorkbook.Sheets(sh).UsedRange.Rows.Count '第一行一定要有点什么
        
        Dim cdat As Variant
        cdat = Sheets(sh).Range("A" & rr & ":C" & ran).Value '假设要采集数据列是A到C
        Sheets(1).Range("A" & r1 & ":C" & r1 + ran - rr).Value = cdat
        r1 = r1 + ran - rr + 1
    Next sh
End Sub