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

发布网友发布时间：2022-07-27 19:08

共1个回答

热心网友时间：2023-10-29 01:39

一般就用复制吧
如果表格较多，格式一致，规律性又强
可以考虑用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