如何遍历同一个单元格

Question

Private Sub CommandButton1_Click()
    Range("C10").Select

    For Range("C10").Value = 0 To 35
        Range("C10").Value = Range("C10").Value + 1
    Next
End Sub

我已经为一个单元格编写了上面的代码来循环遍历 values = 0 到 35 。 我这样做是因为还有其他公式的值会根据 Range("C10") 的值而变化。

代码不起作用

Answer 1

将增量变量添加到您的 For ... Next 循环。

Option Explicit

Private Sub CommandButton1_Click()

    Dim i As Long

    For i = 0 To 35

        Range("C10").Value = i

        'do other stuff here

    Next

End Sub

Answer 2

这不是做你想做的事的好方法：

你最好使用一个计数器变量，并做这样的事情：

for counter = 0 to 35:
  Range("C10").Value = counter
  // check the values of the things you want to verify,
  // e.g. by putting them in some cells for verification afterwards,
  // like "Range("D10").Offset(0,counter) = ...
Next 

（这只是伪代码，可能有一些语法错误）

Answer 3

这个会从 0 到 35 循环，每秒改变Range("A1")的值i 。 看起来动画：

Public Sub LoopMe()

    Dim i As Long
    For i = 0 To 35
        Worksheets(1).Range("A1") = i
        Application.Wait(Now + TimeValue("00:00:01"))
    Next

End Sub

• 如何暂停特定的时间？ (Excel/VBA)