每次循环增加值 1

【问题标题】：Loop increasing value by 1 each time每次循环增加值 1
【发布时间】：2016-06-28 08:06:27
【问题描述】：

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

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

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

【问题讨论】：

标签： vba loops range increment

【解决方案1】：

试试这个

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

【讨论】：

嗨，完美，谢谢！我正在尝试抵消，但永远无法让它工作！欢呼

【解决方案2】：

Sub test()
  start = Val(Range("A1").Value)
  For row = 1 To 1000
    Range("A" & row).Value = start + row
  Next
End Sub

【讨论】：

谢谢，那就更近了！每次运行宏时我都需要它增加一，而不是一次增加 1-1000

【解决方案3】：

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

【讨论】：