Расширить ассортимент в Excel

Question

первый пост здесь. Мне было интересно, если кто-нибудь знает, как расширить ячейки, чтобы перечислить все числа между 2 числами. Например, если я введу 1 на a1 и 6 на a2, он переместится с 6 на a6 и применит остальную часть ряда к строкам между ними.

Answer 1

Что-то очень простое:

Sub Test()

Dim Mn As Long, Mx As Long, X As Long

With ThisWorkbook.Sheets(1)
    .Range("A:A").Clear
    Mn = Application.InputBox(prompt:="Minimum", Type:=1)
    Mx = Application.InputBox(prompt:="Maximum", Type:=1)
    If Mn > 0 And Mx > 0 Then
        For X = Mn To Mx
            .Cells(X, 1).Value = X
        Next X
    End If
End With

End Sub

Назначить макрос кнопке.