VBA对数据表进行拆分（分列）及保存

同事经常遇到问题，这个按照部门进行分类，还要进行保存，好麻烦，每次手动都要半天，还可能出错。所以针对这个问题，用VBA写了个分列和保存的宏。

 

一、使用前说明：

1.要分列的表列中间不要出现空内容，比如要分第2列部门，里面有A部门，B部门，还有个空内容的，可能导致计算行数不准。

2.分列后的表序号功能还未完善，分列后还要手动拉一下序号

3.其他bug还在完善中

 

二、表格拆分（分列）和保存效果图

1.这是要进行操作的表

2.运行分列的宏

以第二列——部门进行分列

标题在第3列，写个3

3.运行结束后效果：