关于excel多表单合并的问题

来源：百度知道 编辑：UC知道 时间：2024/06/16 00:41:50
在一张excel里面有几百张sheet，且所有sheet格式相同数据不同，想达到的目的是在一张新的sheet中将上述sheet表单顺序罗列到一起，用好方便我做数据分析。
二楼的怎么操作呢

Public Sub nst()
For i = 2 To Sheets.Count
Sheets(i).Activate
r = Cells.SpecialCells(xlCellTypeLastCell).Row
Rows("1:" & r).Select
Selection.Copy
Sheets(1).Activate
r = Cells.SpecialCells(xlCellTypeLastCell).Row + 1
Cells(r, 1).Activate
ActiveSheet.Paste
Next
End Sub

用数据透视表
参考这里
http网址://hi.baidu.com/daxuge/blog/item/0f8122f327f0cbcd0a46e0b5.html