如何修复VBA运行时错误‘9’：‘下标越界’问题

阿华AIGC实验室

2026-5-14

搞定VBA运行时错误‘9’：下标越界的问题

嘿，作为VBA新手遇到这种报错太正常了！先给你吃个定心丸：你怀疑的Set NoMonths = Worksheets("Sheet4").Range("C13")这行其实不是触发错误的元凶（毕竟你说Sheet4的C13有数值，说明工作表是存在的）。真正的问题藏在后面的循环和数组逻辑里，咱们一点点拆解：

1. 先纠正一个容易踩的坑：`NoMonths`的赋值方式错了

你用Set给NoMonths赋值，这是把它当成了Range对象，但后面你把它当数值用（比如i Mod NoMonths），虽然VBA会隐式转换，但这不是规范的写法，而且容易出问题。你只需要单元格里的数字，所以应该改成：

Dim NoMonths As Integer ' 先明确变量类型
NoMonths = Worksheets("Sheet4").Range("C13").Value ' 直接取单元格数值，不用Set

记住：Set是用来赋值对象（比如Range、Worksheet）的，普通数值直接赋值就行。

2. 核心错误：数组下标越界的真正原因

咱们看这段代码：

q = (i Mod NoMonths) - 5
ReDim VectorToSum(1 To q)

假设你的NoMonths是5（你说的示例值），当i从5到7循环时：

i=5时，5 Mod 5 = 0，q=0-5=-5
i=6时，6 Mod5=1，q=1-5=-4
i=7时，7 Mod5=2，q=2-5=-3

这时候ReDim VectorToSum(1 To q)里的q是负数，数组的下限1比上限还大，VBA直接就报“下标越界”了！这才是你遇到错误9的根源。

你得重新梳理q的计算逻辑——比如你是不是想计算i和NoMonths之间的某种偏移？举个例子，如果是想让i=5时q=1，i=6时q=2，i=7时q=3，那可以改成q = i - 4，具体得根据你的业务需求调整，总之要保证q是正整数，不然数组就建不起来。

3. 还有几个小细节能帮你避免后续踩坑

加Option Explicit：在代码最开头加上这句话，强制你声明所有变量，比如你循环里用的w就没声明，很容易出隐性错误。
数组类型错了：你把VectorToSum声明成字符串数组，但里面存的是计算出来的数值，应该改成Double类型，不然后续用Sum函数可能会出错。
单元格引用要明确：Cells(48, i).Value默认是当前激活的工作表，最好加上具体工作表（比如Worksheets("Sheet13").Cells(48, i).Value），避免切换工作表时结果乱掉。

给你改好的示例代码

Option Explicit ' 一定要加！强制变量声明，减少隐性错误
Sub DefferedRev()
    Dim NoMonths As Integer
    NoMonths = Worksheets("Sheet4").Range("C13").Value ' 直接取数值，不用Set
    
    Dim i As Integer
    Dim q As Integer
    Dim w As Integer ' 声明循环变量w
    Dim VectorToSum() As Double ' 改成数值类型数组
    Dim ValueIn As Double
    
    ' 用With简化Sheet13的引用，不用每次都写Worksheets("Sheet13")
    With Worksheets("Sheet13")
        If .Range("B40").Value = .Range("C82").Value Then
            For i = 5 To 7
                .Cells(48, i).Value = 0
            Next i
        Else
            For i = 5 To 7
                ' 这里替换成你实际需要的q的计算逻辑，示例用i-4
                q = i - 4
                ' 加个判断，避免q<=0时数组报错
                If q > 0 Then
                    ReDim VectorToSum(1 To q)
                    For w = 1 To q
                        VectorToSum(w) = (.Cells(38, i).Value * .Cells(7, i).Value) / (NoMonths * NoMonths - w)
                    Next w
                    ValueIn = Application.WorksheetFunction.Sum(VectorToSum)
                    .Cells(48, i).Value = ValueIn
                Else
                    .Cells(48, i).Value = 0 ' q<=0时赋值0，防止出错
                End If
            Next i
        End If
    End With
End Sub