Excel 如何循环通过同一单元格

Excel 如何循环通过同一单元格,excel,vba,excel-formula,Excel,Vba,Excel Formula,我已经为一个单元格编写了上面的代码,使其在值=0到35之间循环。我这样做是因为还有其他公式的值根据范围(“C10”)的值而变化 代码不起作用这不是一种很好的方法来执行您想要的操作: 您最好使用计数器变量,并执行以下操作: Private Sub CommandButton1_Click() Range("C10").Select For Range("C10").Value = 0 To 35 Range("C10").Value = Range("C10").

我已经为一个单元格编写了上面的代码,使其在值=0到35之间循环。我这样做是因为还有其他公式的值根据范围(“C10”)的值而变化


代码不起作用

这不是一种很好的方法来执行您想要的操作:

您最好使用计数器变量,并执行以下操作:

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

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

(这只是伪代码,可能有一些语法错误)

将增量变量添加到For。。。下一个循环

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 

这一个将从0循环到35,用
i
每秒改变
Range(“A1”)
的值。看起来很生动:

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
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