Excel VBA如何输入起止值后自动输出指定区间内所有整数

原代码核心问题 #

• 死循环：循环体内从未修改iLowVal的值，终止判断条件永远无法触发，导致程序卡死
• 下标变量i未定义未赋值，单元格地址拼接逻辑错误，无法正确写入对应行
• 未做输入合法性校验，用户输入非数字、起始值大于结束值时会直接报错
• Integer类型最大仅支持到32767，区间数值过大时会触发溢出错误

修复后的可用代码 #

Sub FindNum()
    Dim iLowVal As Long
    Dim iHighVal As Long
    Dim i As Long
    Dim inputTemp As String
    
    ' 校验起始值输入
    inputTemp = InputBox("Beginning Range")
    If Not IsNumeric(inputTemp) Then
        MsgBox "请输入有效数字！"
        Exit Sub
    End If
    iLowVal = CLng(inputTemp)
    
    ' 校验结束值输入
    inputTemp = InputBox("Ending Range")
    If Not IsNumeric(inputTemp) Then
        MsgBox "请输入有效数字！"
        Exit Sub
    End If
    iHighVal = CLng(inputTemp)
    
    ' 校验区间合法性
    If iLowVal > iHighVal Then
        MsgBox "起始值不能大于结束值！"
        Exit Sub
    End If
    
    ' 清空A列原有数据避免干扰
    Columns("A:A").ClearContents
    
    ' 循环写入全区间数值
    For i = 1 To (iHighVal - iLowVal + 1)
        Range("A" & i).Value = iLowVal + i - 1
    Next i
End Sub

逻辑说明 #

• 用Long类型替代Integer，支持最大到2147483647的数值区间
• 全链路输入校验，避免非法输入导致的程序异常
• 改用更可控的For循环替代原Do Until循环，从根源避免死循环问题
• 自动清空A列旧数据，输出结果包含起止值在内的所有区间数值

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