jacky
问题补充说明：sheet2和sheet3拥有相同的表头，而数据不同，如何运用宏把他们合并到sheet1中。难点是sheet2和sheet3内的数据再不断增加，不是固定单元格。求编辑代码，或如何选中带有数据的单元格，谢谢
1.首先把需要合训答夫并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。
2.打开这个excel表大，直接按键ALT+F11，进入下图界面。双击如图所示位置的sheet1。
来自3.如图，打开准备好座标孙厂里顶弱半正京为的VBA代码，复制到这个空白的360问答代码编译处，代码如下：
Sub工作薄间工难序迅担这孩维作表合并()
DimFileOpen
DimXAsInteg款给晶尔情句er
***.screen清updating=False
FileOpen=***.getopenfilename(FileFilter:="MicrosoftExcel文件(*谓策创使.xls),*.xls",MultiSelect:=True,Title建跑:="合并工作薄")
X=1
WhileX<=UBound(FileOpen)
***.openFilename:=FileOpen(X)
Sheets().MoveAfter:=***.sheets(thisworkbook.***.count)
X=X+1
Wend
势青息包虽略纪耐况ExitHandler:
***.screenupdating=True
ExitSub
errhadler:
MsgBox***.description
E施优神ndSub
4.注意事项，如图，注意工作薄苗展量变米态的名字，同时，注意代码中设定的excel版本。如果出现无法编译的情况，可以用这个共享的t率怀xt。
5.回到“合并工作薄”的excel表格中书，如图，点击工具（没有的到excel的选项中添加），选择宏。
6.选择宏以后会出现下图真胞界面，直接双击图中比切茶绝县察选项。
7.双击后弹出选择待合并的文件夹中工作薄，直接全选要合并的工作薄即可。
8.如图，这就是合并后的效果，这两个工作薄是下载的2014年的高考录取分数线的内容，效果不错，好宜做故片时乡现而且合并工作薄本身孙输活的工作表是不会被占用的，是新建的工作表。
