请老师指点下for语句为什么出现内存溢出，谢谢！

路的前方是梦想

程序如下所示：ubound(arr)=9949，但是在for这个语句中，运行程序，i会显示到9950，导致 .[a3].Resize(UBound(arr), 59) = arr，这句话会内存溢出，这是为什么呢？请老师指导，谢谢！！


Sub demo11()
Dim arr
With Sheet6
    arr = .Range(.[bg3], .Cells(Rows.Count, 1).End(3))
    For i = 1 To UBound(arr)

        If Len(arr(i, 24)) <> 0 Then
            arr(i, 39) = arr(i, 25) / arr(i, 24)
        End If

        If Len(arr(i, 14)) <> 0 And (arr(i, 10) - arr(i, 14)) <> 0 Then
            arr(i, 38) = (arr(i, 11) - arr(i, 15)) / (arr(i, 10) - arr(i, 14))
        Else
            If Len(arr(i, 12)) <> 0 And (arr(i, 10) - arr(i, 12)) <> 0 Then
                arr(i, 38) = (arr(i, 11) - arr(i, 13)) / (arr(i, 10) - arr(i, 12))
            Else
                If Len(arr(i, 10)) <> 0 Then
                    arr(i, 38) = arr(i, 11) / (arr(i, 10) - arr(i, 9))
                End If
            End If
        End If

        If Len(arr(i, 16)) <> 0 And Len(arr(i, 18)) <> 0 Then
            arr(i, 42) = arr(i, 16) - arr(i, 18)
            arr(i, 43) = arr(i, 17) - arr(i, 19)
        End If

        If Len(arr(i, 18)) <> 0 And Len(arr(i, 20)) <> 0 Then
            arr(i, 44) = arr(i, 18) - arr(i, 20)
            arr(i, 45) = arr(i, 19) - arr(i, 21)
        End If

        If Len(arr(i, 20)) <> 0 And Len(arr(i, 22)) <> 0 Then
            arr(i, 46) = arr(i, 20) - arr(i, 22)
            arr(i, 47) = arr(i, 21) - arr(i, 23)
        End If

    Next i
       .[a3].Resize(UBound(arr), 59) = arr
End With
End Sub

路的前方是梦想

请各位老师指点，谢谢！

路的前方是梦想

请老师指点下，谢谢！错误代码07

shiruiqiang

新手路过，没附件不好说。你的arr取值范围是bg3开始，是否超范围。因为 arr = .Range(.[bg3], .Cells(Rows.Count, 1).End(3))，下标 .Cells(Rows.Count, 1).End(3)应该是第一列，1改“bg”试试可行吗？

liulang0808

typename（arr)看看类型

路的前方是梦想

liulang0808 发表于 2023-2-15 07:54
typename（arr)看看类型

老师，您好，我把for语句下边的每个内容逐段测试，发现程序中加入这段内容的时候，If Len(arr(i, 16)) <> 0 And Len(arr(i, 18)) <> 0 Then......才开始出现报错7
arr类型是string

liulang0808

路的前方是梦想 发表于 2023-2-15 08:03
老师，您好，我把for语句下边的每个内容逐段测试，发现程序中加入这段内容的时候，If Len(arr(i, 16))  0 ...

看arr对应的表格区域，溢出以后查下边界

liulang0808

如果还有问题，建议上传模拟附件吧

路的前方是梦想

liulang0808 发表于 2023-2-15 08:04
看arr对应的表格区域，溢出以后查下边界

程序运行的时候，会提示报错，我查看了以下Ubound(arr)=9949，但是看next i 中的i及程序内容i的显示都是9950，好奇怪

liulang0808

路的前方是梦想 发表于 2023-2-15 08:09
程序运行的时候，会提示报错，我查看了以下Ubound(arr)=9949，但是看next i 中的i及程序内容i的显示都是9 ...

楼主如果还有问题，建议上传附件