问题:
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
'
' test 宏.
'
Dim d As Object, bt, arr, i% '%代表为数值类型
Set d = CreateObject("Scripting.Dictionary") ’创建一个字典对象
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") ’创建一个字典对象