字典的item可以直接copy到工作表的单元格区域吗

慕有钱

如何能将字典的item复制粘贴到一块单元格区域呢

1. d=array(a,b,c,x,y,z)
   
2. range("A1").Offset(0, 0).Resize(d.count, 6) = d

复制代码

这样报错“用户程序或定义对象错误”，请各位老师帮忙修改一下

microyip

1. d=array(a,b,c,x,y,z)
   
2. range("A1").Offset(0, 0).Resize(,ubound(d)+1) = d

复制代码

micch

这个d是字典？？？如果item是数组，需要转置才行

慕有钱

micch 发表于 2020-3-10 11:32
这个d是字典？？？如果item是数组，需要转置才行

d是字典，我省略了创建字典
item是字典的item，不是数组

1. d(arr(i,1))=array(arr(i,1),arr(i,2),arr(i,3),arr(i,4),arr(i,5),arr(i,6))

复制代码

我的字典d里面的 key有连着一串的item，然后希望把这些所有的item赋值到一块单元格区域里面

慕有钱

microyip 发表于 2020-3-10 11:27

我的d是字典，我省略了Set d = CreateObject("scripting.dictionary")

ubound函数应该对字典不适用吧

micch

慕有钱 发表于 2020-3-10 11:40
d是字典，我省略了创建字典
item是字典的item，不是数组

为什么你说这个不是数组呢？？

这明显就是数组嘛

数组如果输出，需要transpose转置才行，需要理解多维的概念，按你的描述，我理解的是需要transpose两次才行。

慕有钱

micch 发表于 2020-3-10 11:44
为什么你说这个不是数组呢？？

这明显就是数组嘛

相当于我是把一个数组赋值给了字典的item，
但是我把代码改成range("A1").Offset(0, 0).Resize(d.count, 6) = Application.Transpose(d)仍然是相同的报错

micch

慕有钱 发表于 2020-3-10 11:49
相当于我是把一个数组赋值给了字典的item，
但是我把代码改成range("A1").Offset(0, 0).Resize(d.count, ...

***********Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.items))

建议你看一下版主对字典的说明贴，首先对item和items有一个理解

你输出的如果是items，那是一个多维的数组，如果你输出的是d，那我就不知道了，我都不知道你所说的d到底是key ,keys,item,items中的哪一个

慕有钱

micch 发表于 2020-3-10 11:52
***********Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.items))

建议你看 ...

感谢老师，我再去学一下字典的属性吧

microyip

从你原来代码看，d是数组，不是字典，所以只能用2楼的写法，假设d是字典的话

1. range("A1").Offset(0, 0).Resize(,d.count) = d.items()

复制代码