Sub MergeSheets() Dim ws As Worksheet Dim destWS As WorksheetSet destWS = Worksheets("Sheet1")For Each ws In ActiveWorkbook.Worksheets ws.UsedRange.Copy destWS.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial NextEnd Sub
请帮我写一段VBA代码,让所有SHEET的内容合并到一个SHEET里面
最新推荐文章于 2024-04-30 16:58:01 发布