怎么样把多个excel表格合并到一个表格中？

突然发现一个很简单的方法，可以很有效的把多个excel表格合并到一个表格中，觉得很有必要分享一下，下面就以excel2007版本的excel表格来实际举例子，来看看如何简单快速合并表格。

VBA代码

（01）Sub 合并表格()Dim mypath As StringDim f As StringDim ribao As enUpdating = Falsemypath = & "/琢磨/"f = Dir( & "/琢磨/*") (mypath & f)With ts(1) after:=ts(t)End Withf = DirLoop Until Len(f) = enUpdating = TrueEnd Sub

演示步骤

（01）随机做一下演示数据，比如新建一个文件夹，需要把里面A组，A组 - 副本，A组 - 副本 (5)，6,7,8等excel表格合并汇总为一个。当然如果少的话，可以直接复制到同一个excel表格中。

（02）步骤一：先新建一个空白的表格，然后必须是使用支持宏功能的excel文档才可以，这里原来2007版本的是不支持的，需要更换或者是找开发工具，开发宏选项，之后要用到。

（03）步骤二，重点来了，选择开发工具（必须支持宏选项才可以），选择插入，再选择第一个，选择插入按钮，然后再随机找个空白位置，画框框，多大，看自己喜欢。

（04）步骤三：插入按钮之后，就会有选项可以选择宏，但是如果是第一次新建的话，是需要先新建宏才可以，所以，就需要来新建宏按钮啦，不需要懂VBA，直接可以使用现成的，但是需要改动一下。

（05）步骤四：输入VBA代码，可以直接使用，但是需要注意的一点就是，里面的“琢磨”是对应的文件夹名称，这个需要改动，其他的可以不用改动，不然运行起来会出现错误的。

（06）步骤五：设置好之后，就可以返回点击“合并表格”（当然按钮的名称可以自定义，这里随机起的名字，也可以简单合并，或者是合等），之后就可以看到，表格就自动合并为一个了。

特别提示

使用代码，可以很简单就完成了多个excel表格合并为一个表格，一个按钮就瞬间完成了，超级方便。

但是还是得多加练习才可以，代码的运行，就算不会写，得看懂意思，才可以掌握。