excel2016以上版本：
单击 【数据】- 【新建查询】 - 【从工作簿】，选择需要合并的工作表，在追加查询中，单击【将查询追加为新查询】，选择所需的工作表，单击关闭并上载。
参看：https://www.zhihu.com/question/28706686?sort=created
一个excel中多个sheet的合并
Page: 1
Posts 1 to 2 of 2
Share22023-12-09 05:14:27
按【Alt】+【F11】，输入如下代码，并单击三角形图标运行：
Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A60000).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "小主，数据合并结束啦！", vbInformation, "提示" End Sub
最后删去标题栏即可。
参看：https://www.zhihu.com/question/28706686?sort=created
Page: 1