excel - Set dict = CreateObject ("Scripting.Dictionary") 循环直到sheet的数量

Question

我有一个包含多个工作表的 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

感谢您的帮助

Answer 1

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

所以，如果 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)

编辑:按照Comintern's answer , ReDim Preserve只能改变最终尺寸，所以 MySeries会重新调整尺寸为(1 到 20、1 到 5)，但仍然会失败，因为 cnt超出数组的范围