使用VBA实现多个Excel合并并对相同数据进行重排

背景需求：使用VBA实现Excel多个独立表格合并，相同数据重排并显示当前数据行来自哪个源文件。

准备工作：合并的表格格式有要求，如截图：

使用步骤：

1、先创建一个文件夹（文件夹名称需要英文状态，中文没试过），再把需要合并的Excel文件放在这个文件夹的根目录下。需要注意的是需要合并的Excel表格格式需要一致，如有多行多列合并的需要修改。

2、在创建的文件夹外新建一个Excel表格，打开进入表格，按CTRL+F11或者直接点击

3、在弹出的框输入第一步的VBA代码：

接下一页

4、修改代理里自己创建文件夹的实际位置：用鼠标滚动到最上面，修改文件夹位置：

5、修改文件路径后，直接按F5运行VBA程序 等待结束，结束后文件夹会多一个合并的文件，然后核对下格式和数据有没有问题，这一步得到的就是一个合并了所有Excel表格的数据，如果你不需要对相同名称的进行排列在一起，就不需要进行下一步了。如果有需要就继续下一步。

6、如果执行完第五部，那个vba代码还在就全选删掉刚才的代码，直接复制第二步数据重排的代码，如果那个代码窗口关闭了，就从第一步或者第二步开始进入代码窗口，然后粘贴第二步的代码，修改文件路径。

7、修改完文件路径直接按F5执行，这个时候就得到一个多个Excel表格合并且相同名称的排列在一起的Excel文档了。