字典直接创建和引用法的区别

如图所示

以下是直接创建

Set d=Createobject(“scripting.dictionary”)

以下是用引用法,复制到别的电脑有可能不能用,必须启用

Private Sub CommandButton1_Click()
    Dim d As New dictionary
'前期引用,VBA中,工具,引用 scrrun.dll
'勾选 Microsoft Scripting runtime 
    Dim x As Long
    For x = 2 To 5
        d.Add Cells(x, 1).Value, Cells(x, 2).Value
    Next
    Range("d1").Resize(d.Count) = Application.Transpose(d.Keys)
    Range("e1").Resize(d.Count) = Application.Transpose(d.items)
End Sub

《字典直接创建和引用法的区别》有2个想法

发表评论

电子邮件地址不会被公开。 必填项已用*标注