今天来聊聊关于怎么合并多个excel工作表,excel如何利用宏合并多个工作表的文章,现在就为大家来简单介绍下怎么合并多个excel工作表,excel如何利用宏合并多个工作表,希望对各位小伙伴们有所帮助。
1、1.首先把需要合并的excel工作薄整理到一个文件夹中,如图,用来合并到一起的工作薄的名字要注意,这里取名叫“合并工作薄”。
2、2.打开这个excel表,直接按键ALT+F11,进入下图界面。
3、双击如图所示位置的sheet1。
4、3.如图,打开准备好的VBA代码,复制到这个空白的代码编译处,代码如下:Sub 工作薄间工作表合并()Dim FileOpenDim X As Integer***.screenupdating = FalseFileOpen = ***.getopenfilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)***.open Filename:=FileOpen(X)Sheets().Move After:=***.sheets(thisworkbook.***.count)X = X + 1WendExitHandler:***.screenupdating = TrueExit Suberrhadler:MsgBox ***.descriptionEnd Sub4.注意事项,如图,注意工作薄的名字,同时,注意代码中设定的excel版本。
5、如果出现无法编译的情况,可以用这个共享的txt。
6、5.回到“合并工作薄”的excel表格中,如图,点击工具(没有的到excel的选项中添加),选择宏。
7、6.选择宏以后会出现下图界面,直接双击图中选项。
8、7.双击后弹出选择待合并的文件夹中工作薄,直接全选要合并的工作薄即可。
9、8.如图,这就是合并后的效果,这两个工作薄是下载的2014年的高考录取分数线的内容,效果不错,而且合并工作薄本身的工作表是不会被占用的,是新建的工作表。
相信通过excel如何利用宏合并多个工作表这篇文章能帮到你,在和好朋友分享的时候,也欢迎感兴趣小伙伴们一起来探讨。
标签:
免责声明:本文由用户上传,如有侵权请联系删除!