EXCEL如何快速复制同个工作簿中不同工作表到一个工作表中

来源：百度知道 编辑：UC知道 时间：2024/06/19 12:06:51
我一个工作簿中有30余个5行30多列的工作表，结构完全一样，除了工作表的名称和数据以外没有任何差别，我现在的想法是把他们依次复制到同一个工作表的前五列，上下相连。
不知道如何能快速地把多个工作表按序复制到一个工作表中？
写错了。5列30余行。第一列为分类，二三四五列为数据。

用这个vba就可以了。
Sub 合并表()
ActiveWorkbook.Sheets.Add before:=Worksheets(1)
sheetscount = Worksheets.Count
For i = 2 To sheetscount
Sheets(i).UsedRange.Copy
a = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Cells(a + 1, 1).Select
ActiveSheet.Paste
Next i
End Sub

复制 右击 ——选择性黏贴- 数字 - 转至

ok 回答完毕

方便的话,发到我的邮箱,在这一时说不清楚.
ty_1029@163.com

应该是这样：
Sub 合并表()
表格数 = ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(1).select
For i = 2 To 表格数
Sheets(i).UsedRange.Copy Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1)
Next i
End Sub