VBA遍历数组时出现运行时错误9：下标越界问题求助

错误原因 #

• 数组下标不匹配：VBA中通过Range.Value生成的数组是1起始下标（1-based），你的代码里rowi从0开始，访问data(rowi, 1)会直接触发下标越界（错误9），这和C/PHP的0起始数组逻辑不同。
• 单元格行号错误：Cells(rowi, 11)里的rowi是0起始，但Excel行号从1开始，且你的数据从第2行（B2）开始，这里行号对应关系完全错误。
• 逻辑表达式写错：Abs(data(rowi,5) = data(rowj,5))是判断相等后取绝对值，结果只能是0或1，不可能等于2——你要的应该是计算两个数值的差的绝对值，所以得把=改成-。

修复后的代码 #

Sub test()
    Dim data As Variant
    Dim rowi As Integer
    Dim rowj As Integer
    
    data = Range("B2:F31").Value
    ' 数组是1-based，遍历前29条（和后续条目两两比对）
    For rowi = 1 To 29
        ' 从当前条目的下一条开始遍历到最后一条（数组共30行）
        For rowj = rowi + 1 To 30
            ' 修正Abs内的表达式为减法，判断数值差的绝对值等于2
            If data(rowi, 1) = data(rowj, 1) And _
               data(rowi, 2) = data(rowj, 2) And _
               Abs(data(rowi, 5) - data(rowj, 5)) = 2 Then
                ' 数组第rowi行对应Excel第rowi+1行（因为数据从B2开始），列11是K列
                Cells(rowi + 1, 11).Value = 1
            End If
        Next rowj
    Next rowi
End Sub

关键注意点 #

• VBA数组特性：Range转数组默认1起始，这是和C/PHP数组最核心的差异之一，写VBA时必须牢记。
• 单元格映射：数组第N行对应Excel第N+1行（因为你的数据从B2开始），所以Cells(rowi+1,11)才是正确的目标单元格位置。
• 逻辑修正：只有用减法计算两个数值的差，再取绝对值，才能满足你“第5列数值差为2”的匹配条件。

内容的提问来源于stack exchange，提问作者andreithegiant