excel中，怎样快速批量合并多个工作表

1、分别在sheet1、sheet2工作表输入不同数据，如下图所示。

2、点击菜单栏里的文件点击后在里面选择选项，操作见下图。

4、菜单栏里显示开发工具后，点击开发工具下的Visual Basic,操作见下图。

6、在工作薄中输入Option ExplicitSub combine()Dim sh As Worksheet, flag As Boolean, i As Int髫潋啜缅eger, hrow As Integer, hrowc As Integerflag = FalseFor i = 1 To Sheets.CountIf Sheets(i).Name = "comb" Then flag = TrueNextIf flag = False ThenSet sh = Worksheets.Addsh.Name = "comb"Sheets("comb").Move after:=Sheets(Sheets.Count)End IfFor i = 1 To Sheets.CountIf Sheets(i).Name <> "comb" Thenhrow = Sheets("comb").UsedRange.Rowhrowc = Sheets("comb").UsedRange.Rows.CountIf hrowc = 1 ThenSheets(i).UsedRange.Copy Sheets("comb").Cells(hrow, 1).End(xlUp)ElseSheets(i).UsedRange.Copy Sheets("comb").Cells(hrow + hrowc, 1)End IfEnd IfNext iEnd Sub如下图所示。

8、合并后的效果见下图。