合并EXCEL工作薄中相同结构的工作表

  • A+
所属分类:VBA编程

今天有朋友来问一个问题,他在一个EXCEL工作薄中,有多个结构相同的工作表,然后需要合并到一个工作表中数据分析,其实如果工作表数量少的话,还可以复制粘贴就可以了,但是如果比较多,一个个粘贴就很是麻烦,要把不同工作表合并在一起,方法很多,我们这里介绍的是使用VBA的,就5秒钟就搞定;

不信往下看:

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

合并EXCEL工作薄中相同结构的工作表

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

合并EXCEL工作薄中相同结构的工作表

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

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

合并EXCEL工作薄中相同结构的工作表

代码如下:

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

  • 公众号:i95556
  • 计算机二级考生请关注
  • weinxin
  • 公众号:word_excel_ppt
  • 学习OFFICE请关注
  • weinxin
iexcel

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: