excel怎么快速合并多个工作表**到一个工作表

时间：2015.09.29 发布人：jeyyday
excel怎么快速合并多个工作表**到一个工作表

已解决问题

谷歌jeyyday用户在2015.09.29提交了关于“西游记excel怎么快速合并多个工作表**到一个工作表”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-12-07T02:33:27。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，你是我的宝贝,你是我的花,谢谢你对我的帮助！

希望以下的回答，能够帮助你。

第1个回答

用户名：幻境蔷薇0  

1.首先把需要合并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。

2.打开这个excel表，直接按键ALT+F11，进入下图界面。双击如图所示位置的sheet1。

3.如图，打开准备校眼端好的VBA代码，复制到这个空白的代码编译处，代码如下：

Sub工作薄间工作表合并()


DimFileOpen

DimXAsInteger

Application.ScreenUpdating=False

FileOpen=Application.GetOpenFile田长假商任益怕远name(FileFilter:="MicrosoftExcel文件(*.xls),*.xls",石毛盐技德画着处席MultiSelect:=True,Title:="合并工作薄")

X=病投虽今选业半绍故1

WhileX<=UB本增组城海备ound(FileOpen)

***.OpenFilename:=改制封尽原元年FileOpen(X)

Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.S情剂掌最副金娘械六水洲heets.Count)

X=随率置沿友自似X+1

Wend

Exith**andler:

Application.ScreenUpdating=True

ExitSub

errhadler:

MsgBoxErr.Descri阿利范帮ption

EndSub

4.注意事项，如图，注意工作薄的名字，同时，注确记它散克象矿音呼试读意代码中设定的excel版本。如果出现无法编译的情况，可以用这个**享的txt。

5.回到“合并工作薄”化请职连未括广脚群粮间的excel表格中，如图，住雨料脸曲领或点击工鲸没有的到excel的选项中添加），选择宏。

6.选择宏以后会出现下图界面，直接双击图中选项。

7.随等践临适某龙内领谓双击后出选择待合并的文件夹中工作薄，直接全选要合并的工作薄即可。

8.如图，这就是合并后的效果，这两个工作薄是下载的2014年的高考录取分数线的内容群春空执原务主完，效果不错，而且合并工作薄本身的工作表是不会被占用的，是新建的工作表。