Excel 单元循环码

我正在学习VBA，希望在excel 2007中循环或更改例如cell-1的值，直到cell-2等于cell-3。我已经做了一个宏和一个按钮来激活它，但我正在努力使代码做到这一点。我不希望代码激活解算器，我希望有一段时间，直到循环将做。有什么想法吗

谢谢。

试试这个：

Private Sub ChangeValueTilItsGoodEnough()
   Dim r1 as Range, r2 as Range, r3 as Range
   With ThisWorkbook.Sheet("Sheet1")
      'define ranges
      r1 = .Range("A1")
      r2 = .Range("A2")
      r3 = .Range("A3")
      'loop until the two values are equal - may want to add some sort of checker
      'to make sure an infinite loop doesn't happen. I'm assuming you're using 
      'a linear equation tool like Solver.
      While (r2.Value <> r3.Value)
          'change the value of r1
          r1.Value = r1.Value + 1
      Wend
   End With
End Sub

Private子变更值tilitsgoodtough（）
调光r1为量程，r2为量程，r3为量程
使用此工作簿。工作表（“工作表1”）
'定义范围
r1=.范围（“A1”）
r2=.范围（“A2”）
r3=范围（“A3”）
'循环，直到两个值相等-可能需要添加某种检查程序
'以确保不会发生无限循环。我想你在用
'一个线性方程工具，如解算器。
而（r2.值r3.值）
'更改r1的值
r1.值=r1.值+1
温德
以
端接头

---

如果您有问题，请告诉我。

您能发布一些示例数据并展示您已经获得的信息吗？