Sub 合并当前工作簿下的所有工作表()
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set st = Worksheets.Add(before:=Sheets(1))
    st.Name = "合并"
    For Each shet In Sheets
        If shet.Name <> "合并" Then
            i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
            shet.UsedRange.Copy
            st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "已完成"
End Sub

这段代码的作用是在当前工作簿中创建一个新的工作表，然后将其他所有工作表的内容复制到这个新的工作表中1。

方法三：Power Query

Power Query是Excel中的一个强大的数据分析工具，它可以用来合并多个工作表或工作簿中的数据。具体操作步骤如下：

1. 在Excel中新建一个工作表，作为合并后的表格；
2. 点击【数据】→【启动Power Query编辑器】；
3. 进入编辑器后，选择【新建源】-【Excel工作簿】；
4. 导入数据源（即包含多个sheet的Excel文件），勾选【选择多项】，按住Shift键可以选择所有sheet；
5. 点击右下角【确定】；
6. 点击【sheet1】，确保后续工作表都在sheet1里，然后点击【追加查询】，勾选【三个或更多表】，按顺序添加，可以一个个点，也可以按住Shift，一次性追加；
7. 最后点击【确定】，然后点击左上角【关闭并上载】，即可完成合并3。

以上三种方法各有优缺点，你可以根据自己的实际情况选择合适的方法进行操作。