我们可以使用单个语句将字典键分配给一列吗？

我有大的字典键，我想插入到Excel表格的列。我已经完成了下面：

Dim a, d, i 'Create some variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Athens" 'Add some keys and items. d.Add "b", "Belgrade" d.Add "c", "Cairo" a = d.keys 'Get the keys For i = 0 To d.Count - 1 'Iterate the array ob.Cells(i + 1, 1).Value = a(i) Next 

但是这可以在一个声明中完成吗？ 说obj2.Cells(1,1).Resize(dicP.Count,1)=a我也试过这一个，但它只是把第一个关键在我定义的范围我Resize 。

Answer 1

喜欢这个？

 Sub a() Dim d '<~~ Create some variable Dim sKeys() Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Athens" 'Add some keys and items. d.Add "b", "Belgrade" d.Add "c", "Cairo" '~~> Get dictionary Keys sKeys = d.keys Range("A1").Resize(d.Count) = Application.Transpose(sKeys) End Sub