想把vba字典的两项键值，分别提出组成新的数组 ，请大家帮帮忙，谢谢

eutu

想把字典的两列键值，分别提出组成新的数组，即组成新的两个数组（两列） ，请大家帮帮忙，谢谢
Sub sstest()
    Set d = CreateObject("Scripting.dictionary")
    arr = Range("a1:c5")
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
    Next
    k = d.keys       '这里是A列数据组成的数组
    tm = d.items     '这里是BC两列数据组成的数组

    '下面是我要解决的问题？即两项items分别单独组成新的数据
    '即问号处（?？）怎么样处理才能让字典的每项值表示单独的列   ，具体问题见下：

    item_1 = d.items()(0)??    '??这里要怎么表示才能 表示为B列数据组成的数组，即item_1 = range("b1:b5")
    item_2 = d.items()(1)??    '同上，要怎么表示才能 表示为C列数据组成的数组，即item_2 = range("c1:c5")
    '上面item后面的要怎么处理，才能得到b或C列的数据或者就根本不可能得到单独的列
End Sub

附件已更新
工作簿1.rar (13.14 KB, 下载次数: 6)

2021-11-24 13:10 上传

点击文件名下载附件

XUEJUNXI

直接从arr里面抽出第2列、第3列不行吗？
item_1 =application.index(arr,,2)
item_2 =application.index(arr,,3)
省去了用字典了

loirol

如图所示，同理C列把it(0)改成1

fanyoulin

看我这个截图，你应该就明白了：

loirol

补充说明

语虚何以言知

jiangxiaoyun

感觉钻牛角尖，这没啥实际意义。折腾

eutu

不是牛角尖，因为在实际应用中，字典是由别的内容转过来的，我只想要它的第一项值.
为了说明问题，得到我想要的结果，自己模拟一个类似字典而已

micch

建议就循环一下好了