今天小风给大家收集了一些如何将一个excel中的多个工作表合并成一个,EXCEL如何将两个或多个工作表合并成一个工作表方面的信息来分享给大家,如果大家感兴趣的话就接着看下面得文章吧
1、Excel有很多页的数据需要合并到一个页面,一页页的复制粘贴比较麻烦。小编给大家分享Excel的宏计算来解决这个问题材料/工具Excel2、01、6、方法
1、1、打开一个Excel文档,显示有三个Sheet
1、2、三个Sheet分别的内容
1、3、点击Sheet栏后面的【+】
1、4、创建一个叫“合并”的Sheet
1、5、右键“合并”Sheet选择【查看代码】
1、6、打开VBA编辑窗口
1、7、输入以下代码:
1、
1、
1、Sub 合并当前工作簿下的所有工作表()
2、Application.ScreenUpdating = False
3、For j = 1、 To Sheets.Count
4、 If Sheets(j).Name <> ActiveSheet.Name Then
5、 X = Range("A6、5、5、3、6、").End(xlUp).Row + 1、
6、 Sheets(j).UsedRange.Copy Cells(X, 1、)
7、 End If
8、Next
9、Range("B1、").Select
10、Application.ScreenUpdating = True
11、MsgBox"当前工作簿下的全部工作表已经合并完毕!", vbInformation,"提示"
12、End Sub
13、8、点击【运行】选择【运行子过程/用户窗体】
13、9、弹提示窗口
13、1、0回到“合并”Sheet就能看见成功合并
13、怎么样,是不是很简单呢~
本文到此结束,希望对大家有所帮助。