VBA中如何将两个集合分别作为键和值转换为字典

操作前请先确认rembs和cols两个集合元素数量一致，且同索引位置的元素是你需要一一对应的键值对，否则会触发索引越界错误。

方案一：添加键时直接同步赋值 #

不需要预先添加空值项，直接在调用字典Add方法时，把同索引的cols元素作为item传入即可，替换你原来的循环代码：

For i = 1 To rembs.Count
    pairs.Add Key:=rembs(i), Item:=cols(i)
Next i

方案二：已添加空值键后补赋值 #

如果你已经执行完原有添加空字符串项的循环，不需要删除重建字典，直接遍历修改对应键的项值即可：

For i = 1 To rembs.Count
    pairs(rembs(i)) = cols(i)
Next i

提示：VBA中集合的默认索引从1开始，如果你两个集合的对应关系不是同索引匹配，需要调整索引取值逻辑，保证取到的cols元素和当前rembs元素是你需要的配对关系。

内容的提问来源于stack exchange，提问作者Jia Hannah