现在有很多独立的Excel工作簿文件，现在您需要将这些文件合并到一个新工作簿中。在Excel工作簿中保留各种Excel工作表的名称。如果数量很少，可以使用打开一个副本的方法。

下面的小编辑教你如何结合成一个和两个工作表：

需要合并的Excel工作簿文件放在文件夹中。

每个文件夹中的工作簿输入了一个简单的内容。



在这个文件夹中，新创建了一个Excel工作簿文件，重命名为8。



打开新建立的Excel工作簿文件8。，按Alt+F11右键或移动鼠标底部的工作表名称，国家，并选择查看代码。



在代码编辑窗口弹出，输入代码。注意：通过快捷键Alt+F11打开窗口，没有直接复制的代码面板。我们需要点击左上角的工程- VBA项目模块，双击Sheet1打开代码窗口。3步，第二方法可以直接打开代码输入窗口。





在代码窗口中，粘贴以下代码：

Sub CombineFiles（）

dimpath作为字符串

dimfilename作为字符串

dimlastcell范围

dimwkb为工作簿

DimWS的工作表

dimthiswb作为字符串

朦胧的MyDir AsString

不要为thisworkbook.path

chdriveleft（函数，1）‘所有的Excel文件

ChDir MyDir

匹配= $（）

thiswb = thisworkbook.name

application.enableevents = false

application.screenupdating = false

路径=函数

文件名=目录（路径格式。

做untilfilename =

如果文件名> thiswb然后

集WKB =工作簿。打开（文件名：=路径文件名）

在每个工作表的WKB WS。

集lastcell = ws.cells.specialcells（xlcelltypelastcell）

如果lastcell。值= 和lastcell。地址=范围（$ 1美元的AddressThen）。

其他的

WS。复制后：= thisworkbook.sheets（工作簿。表。计数）

最后如果

下一个WS

WKB。关闭错误

最后如果

文件名= Dir（）

环

application.enableevents =真

application.screenupdating =真

集WKB =没有

集lastcell =没有

端子



点击运行运行子进程的用户窗体的菜单栏。关闭代码输入窗口。打开Excel工作簿8，你可以看到，有许多新的工作——和mdash以下；此时，我们复制工作表在工作簿工作簿之前这一新。