如何循环遍历同一个单元格答案

【问题标题】：How to loop through the same cell如何循环遍历同一个单元格
【发布时间】：2019-04-02 03:43:39
【问题描述】：

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") 的值而变化。

代码不起作用

【问题讨论】：

标签： excel vba excel-formula

【解决方案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

【讨论】：

【解决方案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

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

【讨论】：

【解决方案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

How to pause for specific amount of time? (Excel/VBA)

【讨论】：