标签：
转自老外的帖子，试过了管用：https://www.extendoffice.com/documents/excel/1184-excel-merge-multiple-worksheets-into-one.html
excel中打开宏编辑器，粘贴如下宏代码：
Sub Combine()Dim J As IntegerOn Error Resume NextSheets(1).SelectWorksheets.AddSheets(1).Name = "Combined"Sheets(2).ActivateRange("A1").EntireRow.SelectSelection.Copy Destination:=Sheets(1).Range("A1")For J = 2 To Sheets.CountSheets(J).ActivateRange("A1").SelectSelection.CurrentRegion.SelectSelection.Offset(1, 0).Resize(Selection.Rows.Count - 1).SelectSelection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)NextEnd Sub标签：
原文地址：http://www.cnblogs.com/linzhen/p/5796535.html
