excel - 我正在尝试查找给定范围之间的所有数字

Question

我必须能够在一个范围内给两个输入一个开始和一个结束数字。我必须能够推断出包括开始和结束数字之间的所有值。我已经完成了一个卡住的循环:) 我还在一些输入框中定义了开始编号和结束编号，并成功地将开始编号放入 A1。
在我的情况下，数字总是未知的，一个人总是能够分辨出开始和结束的数字是什么，但它们总是会改变。

Sub FindNum()
    Dim iLowVal As Integer
    Dim iHighVal As Integer

    iLowVal = InputBox("Beginning Range")
    iHighVal = InputBox("Ending Range")
    
    Range("A1").Value = iLowVal
    Do Until iLowVal = iHighVal
        Range("A1" & i) = iLowVal + 1
           
    Loop
    
    
End Sub

Answer 1

现在开始学习如何使用变体数组。使用它们并批量分配给工作表比循环工作表更快。
使用数组时，使用 For 循环会更快。

Sub FindNum()
    Dim iLowVal As Long
    Dim iHighVal As Long

    iLowVal = InputBox("Beginning Range")
    iHighVal = InputBox("Ending Range")
    
    Dim itNum As Long
    itNum = iHighVal - iLowVal + 1

    Dim arr As Variant
    ReDim arr(1 To itNum)
    
    Dim k As Long
    k = iLowVal

    Dim i As Long
    For i = 1 To itNum
        arr(i) = k
        k = k + 1
    Next i
    
    ActiveSheet.Range("A1").Resize(itNum).Value = Application.Transpose(arr)
End Sub