如何在多行上运行相同的 VBA 代码

Question

首先，我想道歉，因为我知道这个问题已被多次询问和回答。 但是，我仍然很难将这些答案应用于我的情况，而且我对 VBA 还很陌生。

目前我有一个循环运行，直到第 8 行满足条件。（见下文）

Sub Button1_Click()

 Dim i As Double
 Dim x As Double

   t = Range("K3").Value
   i = Range("C8").Value
   x = Range("E8").Value
   b = Range("B8").Value
   
   Do Until i > (x + t)
       i = i + 0.2
   Loop
     
   i = i - 0.2 - b
   
   
   Range("G8").Value = i

End Sub

这正是我对第 8 行所要求的。但我需要这段代码在多行上运行，唯一的值是 static 是单元格'K3'，即：所以一旦在第 8 行完成，我现在需要运行它第 9 行（'C9'、'E9'、'B9'、'G9'）等等，要么这需要运行到第 500 行，要么输入行数，无论哪种方式都适合我正在做的事情.

感谢任何帮助，希望我正确地完成了这篇文章。

布拉德。

Answer 1

这里会有一大群人会给你一个更完整的答案，但我是来回答你的直接问题的。

如果您需要应用其他增强功能，那么可能会出现其他问题。 这将帮助您学习和进步，而不会向您扔一堆您不确定的代码。

Sub Button1_Click()
    Dim i As Double
    Dim x As Double
    Dim lngRow As Long
    
    t = Range("K3").Value
    
    For lngRow = 8 To 500
        i = Range("C" & lngRow).Value
        x = Range("E" & lngRow).Value
        b = Range("B" & lngRow).Value
        
        Do Until i > (x + t)
            i = i + 0.2
        Loop
          
        i = i - 0.2 - b
            
        Range("G" & lngRow).Value = i
    Next
End Sub

这是遍历每一行的简单方法。

您应该对性能进行的考虑与循环、不断更新单元格、更新单元格时的计算和事件等有关。

但这回答了你的问题。