excel中能否用简单的方法把整个工作工作簿的内容纵向合并到一个工作表中
来源:百度知道 编辑:UC知道 时间:2024/06/21 01:02:58
如题,谢谢
运行宏会把所有sheet合并到一个新建的sheet,你看看合不合用
Sub MergeSheets()
SheetCount = ThisWorkbook.Sheets.Count
m = SheetCount + 1
'建立新的工作表,加在最后面
Sheets.Add After:=Sheets(Sheets.Count)
Application.ScreenUpdating = False
For n = 1 To SheetCount
'取得复制范围,如果有标题行不复制,请更改 "A1:IV",例如 "A2:IV"
Worksheets(n).Range("A1:IV" & Worksheets(n).Range("A65536").End(xlUp).Row).Copy
'复制到新的工作表
Worksheets(m).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
Next
ThisWorkbook.Worksheets(m).Range("A1").Activate
Application.ScreenUpdating = True
End Sub