Excel VBA 宏 拆分Excel表

问题：
excel 文件 如下：

num    char key
1     a    关键字1
1     a    关键字1
1     a    关键字1
1     a    关键字1
2     b    关键字2
2     b    关键字2
2     b    关键字2
2     b    关键字2

按照关键字拆分成 多个 excle 表（非sheet）

关键字1.xls
num    char key
1     a    关键字1
1     a    关键字1
1     a    关键字1
1     a    关键字1

关键字2.xls
num    char key
2     b    关键字2
2     b    关键字2
2     b    关键字2
2     b    关键字2

1.思路

    生成字典，保存相应分组对应的行数，直接根据行数做拆分
    

2.VB脚本

    Sub test()
    '
    ' test 宏.
    '
    Dim d As Object, bt, arr, i% '%代表为数值类型
    Set d = CreateObject("Scripting.Dictionary") ’创建一个字典对象