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

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

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

5、复制这目愿硅囫段代码，粘贴进去。Sub 合并工作表() Application.DisplayAlerts = False Applicat足毂忍珩ion.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 = TrueEnd Sub

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