小编new*_*ion的帖子

下面的代码如何工作：

.Range("D4:F4").copy
.cells(1,1).PasteSpecial  

虽然以下方法不起作用：

.Range("D4:F4").copy
.cells(1,1).Paste  

我意识到正确的语法是

.Range("D4:F4").copy Destination:=

我想用一个项目的几个属性填充一个字典。例子：

我正在考虑将Item 1和Item 2作为Dictionary键，并带有一个array可以保存其属性的键。我需要能够分别访问一个项目的每个属性，因此将它们连接为一个字符串不是一种选择。

我正在考虑类似下面的伪代码：

    With Workbooks("testing macro").Sheets(test).Range("D7:G8")

     For i = 1 To .Rows.count

        items_dict.Add Key:=.Cells(i, 1).Value, _
 Item:= array(i,1)= .cells(i,2).value array(i,2)=.cells(i,3).value array(i,3).cells(i,4)