批量处理Excel字段顺序v1.0（统一字段位置方便汇总）

csx

在日常工作中，如有不同的分店，需要对分店的数据进行每月汇总，但是做的Excel工作簿中的字段顺序不一致，不好方便汇总，即是说不能直接复制到总表中去，要先处理字段顺序，这样子会比较麻烦，于是我写了一个代码，能批量处理工作簿的字段顺序。

现在汇总的软件也很多，但是基本上不能对字段进行位置的调动，还是不能做到一键汇总，因此这个代码还是有一点作用的。
如有下图一所示的工作表

如果有多个部门，或者多个人做的，有可能出现字段顺序不一样，而不方便汇总，我们需要按照以下图二所示的字段顺序进行排版

那么用我这个代码就能很好的解决



如图三、四所示，只需要点击一下就完成了，大大减少了工作量





使用方法：
都是直观操作，没有什么多说的。


1、填写A列字段
2、B列为这些字段你希望放到工作表中那些列，填写相应的列号就可以了
3、点击批量处理工作簿字段顺序，等待程序运行完毕。这个是工作簿所有工作表都处理的，如果你只是希望处理激活的工作表，请用另一个。
4、建议处理两遍，基本上不会有错误了
5、如果点击后没有反应，请关闭Excel重新启动运行

里面有两个宏代码，一个是批量处理工作簿（包括所有工作表），一个是批量处理某个工作表的，大家看着使用吧。批处理工作表这个比较稳定，使用的是GetOpenFilename函数的方式打开文件。批量处理工作簿FileDialog(msoFileDialogFolderPicker)函数，这个可以直接选择文件夹，但是不稳定，基本上都是只能处理一次，然后关闭Excle后重新启动又能处理一次，不知道是不是这个函数的BUG，还是我计算机问题。




链接: https://pan.baidu.com/s/14F_WK7Iv3MVhK_hmDLpVvA?pwd=72u7 提取码: 72u7