Vba 循环每次增加值1

我试图从A1中的值1开始，然后将该值增加1并移动到A2，即A1=1，A2=2等

现在我只有增加A1值的代码。如何增加值并每次下拉一个单元格

Sub test()
Range("A1").Value = Range("A1").Value + 1
End Sub

试试这个

Sub Demo()
    Dim rng As Range
    Set rng = Range("A1")
    If IsEmpty(rng) Then
        rng = 0
    Else
        If Not IsEmpty(rng.Offset(1, 0)) Then
            Set rng = rng.End(xlDown)
        End If
        rng.Offset(1, 0) = rng.Value + 1
    End If
End Sub

或

或

---

谢谢，那更近了！我需要它在每次运行宏时增加一次，而不是一次增加1-1000次。我很好，谢谢！我试图抵消，但始终无法让它工作！干杯

Sub Demo()
    Dim rng As Range
    Set rng = Range("A1")
    If IsEmpty(rng) Then
        rng = 0
    Else
        If Not IsEmpty(rng.Offset(1, 0)) Then
            Set rng = rng.End(xlDown)
        End If
        rng.Offset(1, 0) = rng.Value + 1
    End If
End Sub

Range("a1:a100").formula = "=row()"

Range("a1").Value2 = 1
Range("a1").AutoFill Range("a1:a20"), xlFillSeries

for counter = 0 to 20
    range("a1").offset(counter).value2 = counter +1
    range("b1").offset(counter+1).Value2 = range("b1").offset(counter).Value2 + 1
next counter