Excel VBA实现E列数字连续区间分组报下标越界错误如何解决

错误原因 #

• 未给b数组的第一个元素赋值，首次进入连续判断的else分支时，Split(b(k, 1), "-")对空值拆分直接触发下标越界报错
• 区间拼接的减号未加引号，写成& -a(i, 1)属于语法错误，会被识别为字符串与负数拼接，逻辑完全错位
• 最后输出时使用了未定义的变量l作为Resize参数，且未指定列数，输出逻辑和之前单独给I1赋值的操作冲突

修正后代码 #

Sub Group_Numbers()
    Dim a As Variant, b As Variant
    Dim i As Long, k As Long
    
    ' 读取E列所有数值
    a = Range("E1", Range("E" & Rows.Count).End(xlUp)).Value
    ReDim b(1 To UBound(a), 1 To 1)
    k = 1
    ' 初始化第一个区间的起始值
    b(k, 1) = a(1, 1)
    
    For i = 2 To UBound(a)
        If a(i, 1) <> Val(a(i - 1, 1)) + 1 Then
            ' 遇到断点新增区间
            k = k + 1
            b(k, 1) = a(i, 1)
        Else
            ' 连续数值更新区间结束值
            b(k, 1) = Split(b(k, 1), "-")(0) & "-" & a(i, 1)
        End If
    Next i
    
    ' 清空原I列后输出结果
    Range("I:I").ClearContents
    Range("I1").Resize(k, 1).Value = b
End Sub

效果说明 #

运行后会自动识别E列的非连续断点，将连续数字合并为「起始-结束」格式的区间，单个不连续的数字会直接显示为原值，完全匹配你给出的示例需求。

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