大家好，我是82春秋VBA。
信息来源
如上图所示，A到D列作为字典键，E到H列作为字典条目来构建字典。格式为：
迪克
(A \’@\’ B\’@\’C\’@\’D)=数组
（E、F、G、H）
使用@符号将多个条件连接为字典以提取唯一值。
知识点：
由Array 构成的一维数组。下标从0开始。
创建字典关键字
如何拆分字典关键词
\’循环字典关键字，并为分割后的brr数组的第1-4列赋值
ReDim brr(1 To dic.Count, 1 To 8)i=0\’遍历字典关键字集合
For Each d In dic.keysi=i + 1 \’将@分隔的关键字写入一维数组crr
crr=Split(d, \’@\’)\’知识点：
除以split 的一维数组，下标从0 开始。
For j=0 To UBound(crr)brr(i, j + 1)=crr(j)Next jNext d\’ 将brr数组输出到指定单元格
Sheet2.Range(\’A2\’).Resize(UBound(brr), UBound(brr, 2))=brr
如需索取原件请在评论区留言
本文和图片来自网络，不代表火豚游戏立场，如若侵权请联系我们删除：https://www.huotun.com/game/679580.html