怎样快速合并单个excel表中的多个sheet的工作页

1、如下我们创建了表1-表3 一共3个工作表，将3个工作表合并起来；

2、在表1前面，我们点击插入，新建一个工作页，取名为“汇总”；

3、鼠标放置于“汇总”处，点击“查看代码”；

4、这个时候会弹出一个窗口；

5、然后我们将下列代码复制进去：Sub 合并当前工作簿下的所有工作表()Appli罕铞泱殳cation.Screen炽扃仄呦Updating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub

6、粘贴后，点击上方菜单的“运行”——“运行子过程/用户窗体”，弹出提示窗口，我们点击“运行”；

7、最后工作表就会自动合并，如下就是合并后的模样。