ExcelVBA中将所有工作表合并到一个工作表的方法

1、经常会遇到合并工作表，一个个的复制阅露感觉有点麻烦，这里告诉大家一个简单的方法。使用ExcelVBA中将所有工作表合并到一个工作表的方法。

2、在Excel菜单栏中找到开发工具，如下图所示，选择开发工具选项。

3、在开发工具选项中打开Visual Basic，就是Excel中的VBA编程工具。

4、插入模块，右键选项中选择插入模块。就是新建一个编辑窗口。用来输入我们的代码。如下图所示，红色圈出位置。

5、复制这段代码，粘贴进去。

Sub 合并工作表()

    Application.DisplayAlerts = False

    Application.ScreenUpdating = False

        Sheets(1).Select

        Sheets.Add

        Sheets(1).Name = "汇总"

        Dim i, j, k As Integer

       物民泉     For k = 2 To Sheets.Count

                j = Sheets("汇总").[a65536].End(3).Row + 1

                Sheets(k).Select

                i = Sheets(k).[a65536].End(3).Row

                Sheets(k).Rows("1" & ":" & i).Copy Sheets("汇总").Cells(j, 1)

            Sheets(1).Select

            Rows(1).Delete

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub

6、如下图所示，红色圈出位置，为运行代码按钮，点击直接运行程序代码鬼英。

7、运行代码后，所有表格都合并到一个工作表里了。