excel - 字典后期绑定(bind)中的VBA Excel字典

以下代码在调试语句上失败

Sub Tets()
Dim cl_data As Object
Set cl_data = CreateObject("Scripting.Dictionary")
Dim row As Object

Dim irow As Long
For irow = 11 To 12
    Set row = CreateObject("Scripting.Dictionary")
    With row
        row.Add "YN", Cells(irow, 2).Value
        row.Add "Comment", Cells(irow, 3).Value
    End With
    cl_data.Add Cells(irow, 1).Value, row
Next irow
Debug.Print cl_data(CStr(Cells(irow, 1)))("YN")
End Sub

我正在准备保存来自A，B和C列的数据。“外部字典应该具有A列的值作为键，内部是另一个字典，其中B列的数据保存有键” YN”，而C列的数据用键“注释”保存。

最佳答案

这里的问题是循环之后。

For irow = 11 To 12
     '…
Next irow

Debug.Print irow返回13。而且这不在您的字典中，因为您只能读取11和12行。

关于excel - 字典后期绑定(bind)中的VBA Excel字典，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/51649691/