Set dict = CreateObject("Scripting.Dictionary") 循环直到工作表的数量

我有一个包含多个工作表的 Excel 文档。当我从第一张纸返回到第二张纸后运行循环跳转时。但在第二张纸上没有打开新字典，并且我在 ln 16 处收到类似“运行时错误 9”的错误。MySeries(Cnt, 2) = Dt(j, 2)

新词典打开时的每张纸我可以做什么？

        Dim Cll As Object
        Dim j As Integer
        Dim y As Integer, MySeries, Dt, MySeries1, MySeries2, MySeries3, MySeries4 As Integer, sum As Double
        For y = 1 To (Worksheets.Count - 1)
        Sheets(y).Select
        Ln = Sheets(y).Range("a1").End(4).Row
        Sheets(y).Range("d2:H" & Ln).Interior.ColorIndex = xlNone
        Dt = Sheets(y).Range("d2:h" & Ln).Value
        Set Cll = CreateObject("Scripting.Dictionary")
        ReDim MySeries(1 To Ln, 1 To 5)
           For j = 1 To UBound(Dt, 1)
                Fnd = Dt(j, 1)
                If Not Cll.exists(Fnd) Then
                    Cnt = Cnt + 1
                    Cll.Add Fnd, Cnt
                    ReDim Preserve MySeries(1 To Ln, 1 To 5)
                     MySeries(Cnt, 1) = Dt(j, 1)
                     MySeries(Cnt, 2) = Dt(j, 2)
                     MySeries(Cnt, 3) = Dt(j, 3)
                     MySeries(Cnt, 4) = Dt(j, 4)
                End If
               MySeries(Cll.Item(Fnd), 5) = MySeries(Cll.Item(Fnd), 5) + Dt(j, 5) / 1000
            Next j
            Sheets(y).Range("a2:h" & Ln).Clear
            Sheets(y).Range("d2").Resize(Cll.Count, 5) = MySeries

        Next y

感谢您的帮助

cnt在此代码中的任何地方都不会重置为 0。虽然这对于字典中的项目可能是也可能不是期望的行为，但它导致了cnt超出了规定的范围MySeries数组（基于ln并在每个新工作表上重置）。

So, if ln第一张纸的值为 20，第二张纸的值为 15，在第二张纸上添加第一项相当于：

Cnt = Cnt + 1 ' new value = 21
Cll.Add Fnd, Cnt ' should be OK
ReDim Preserve MySeries(1 To Ln, 1 To 5) ' MySeries is now (1 to 15, 1 to 5)
MySeries(Cnt, 1) = Dt(j, 1) ' MySeries(21, 1) exceeds the bounds of the array

目前尚不清楚为什么这会失败MySeries(Cnt, 2) = Dt(j, 2)行，因为它应该在上一行上失败 -MySeries(Cnt, 1) = Dt(j, 1)

edit: as per 共产国际的回答 https://stackoverflow.com/a/38778728/2127508, ReDim Preserve只能改变最终尺寸所以MySeries会被重新调整为 (1 到 20, 1 到 5) 但仍然会失败，因为cnt超出数组的边界