如何在excel,把多个sheet合并到一个sheet中去

来源：百度知道 编辑：UC知道 时间：2024/06/06 03:21:53
比如一张excel中有51个sheet，我要把后50个sheet的内容从上到下合并到一张sheet中间去。我该如何实现，最好能给我附带说明的excel实例，我程序不熟。有的话发我邮箱，410455494@qq.com，我将加分奖励！

仅仅吧其他工作表的内容复制到一个工作表里面，利用宏很方便，发你邮箱

Sub 把多个sheet合并到一个sheet中去()
Dim i%, h%, k%
For i = 1 To 51 '51个sheet
Sheets(i).Select '选择51个sheet

h = [b65536].End(xlUp).Row '检查每个sheet的最后一行

Rows(1 & ":" & [h]).Copy '复制每个sheet的数据

Sheets("全部").Select '选择目标sheet

k = [b65536].End(xlUp).Row '查找目标sheet最后一行
k = k + 1
Cells(k, 1).Select '选择目标sheet最后一行的下一行
ActiveSheet.Paste ’黏贴
Next i ’循环

End Sub

我有个类似的宏，
功能是合并当前工作簿下的所有工作表，
可以在任意一工作表进行合并，
不会修改当前工作表数据。

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("A1").Select