[已解决]求教：application.rept(d.Items,1)是什么意思？

风林火山

Sheets("汇总数据").Range("A2").Resize(D.Count,3)=application.rept(d.Items,1)中 application.rept(d.Items,1)是什么意思

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-15 19:29

等价于下面蓝色写法

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   d(1) = Array(1, 2, 3)
   d(2) = Array(4, 5, 6)
   [a1].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
End Sub

跳转到最佳答案楼层

cutecpu

等价于下面蓝色写法

Sub demo()
   Set d = CreateObject("Scripting.Dictionary")
   d(1) = Array(1, 2, 3)
   d(2) = Array(4, 5, 6)
   [a1].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
End Sub