Excel小技巧：使用VBA代码，5秒钟搞定合并N张工作表（内附代码）

经常我们在做统计的时候，需要把一个EXCEL工作薄中的几张结构相同的工作表合并在一起，然后需要合并到一个工作表中数据分析；

其实如果工作表数量少的话，还可以复制粘贴就可以了，当有数据量较大，或者是你经常要做这项工作的时候，复制粘贴就显得比较繁琐；

Excel功能超强大，要把不同工作表合并在一起，方法很多，我们这里介绍的是使用VBA的，就5秒钟就搞定；

请继续往往下看：

原始数据如图： 有四个工作表，结构是一样的，另外新建了一个工作表，作为汇总用；

原始数据

在合并汇总工作表标签上面，点右键，然后选择 查看代码

第一步

把代码粘贴进去，然后点上面的，运行按钮，就搞定了；

PS:合并完成了，会弹出一个提示对话框，你点确定即可；

第二步

Excel2016图表制作从入门到精通

作者：Excel小技巧-office教程word,excel,powerpoint视频课件，小技巧

1元 25人已购 详情

代码如下：

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For 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 If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub