今天要讲的例子，拆分工作簿并拆分工作表。
问题如下：
解决的思路如下：·
代码运行的结果如下：
代码如下:
代码解析
1：2~5行 DIM定义变量；
2：6、7、38、39行 关闭打开程序警告及屏幕刷新；
3：7行 获取当前工作簿的路径；
4：8行 后期绑定字典；
5：9~21行 获取源工作簿的数据；
6：10行 获取当前工作表的非空单元格；
7：11行 把所有的数据，赋值给数组arr；
8：12~20行 遍历数组，并赋值给字典；
9：13~14行 根据A列数据，新建一个字典；
10：16~18行 根据A列及B列的内容作为新字典的key，把对应的单元格区域作为字典的item；
11：19行 建立字典；
12：22~37行 遍历第一级字典（根据A列数据，创建的字典；
13：23~24行 新建一个工作簿，里面工作表的数量为二级字典的数目；
14：27行 遍历第二级字典；
15：28行 用k进行计数，用于修改工作表的名称；
16：30行 修改工作表的名称为B列的内容；
17：31行 复制字典的内容，到新建的工作表里；
18：34行 指定工作簿的路径及名称；
19：35行 关闭工作簿。
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
分享到:
閱讀更多 浮雲Excel分享 的文章
