excel中能否用简单的方法把整个工作工作簿的内容纵向合并到一个工作表中

发布网友发布时间：2022-05-02 23:04

共1个回答

热心网友时间：2023-10-09 20:01

运行宏会把所有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