如何快速合并单个excel表中的多个sheet的工作页（Office）

不需要利用Python，我们也可以实现将同一张表上的多个sheet页快速合并到同一张工作表中。

具体的操作步骤可参考以下：

第一：新建一个工作表

第二：在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面

第三：将代码复制进去

第四：点击工具栏上面的“运行”下的“运行子过程/用户窗体”

第五：完成了，关闭代码框。

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

   If Sheets(j).Name <> ActiveSheet.Name Then

       X = Range("A65536").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://jingyan.baidu.com/article/19020a0ad8080d529d28422a.html