循环调用VBA中的行

我正在尝试在最上面的一行上执行一个调用，然后删除那一行，然后将这些单元格移动到下一行，然后再次在最上面的一行上运行。 重复练习，直到没有剩下的行。 是的，我知道这可能是一个缓慢的做法，但我的电话每行大约需要10秒，所以这是一个跟踪进度（即剩下多less行）的好方法。

这是我到目前为止，但它不理解我的要求删除范围A2：C2和移动单元格如果在范围A3中有一个值。

任何帮助将非常感激！

Sub loop_through_rows() Dim rngQuantityCells As Range Set rngQuantityCells = Range("A2", Range("A2").End(xlDown)) For i = 1 To rngQuantityCells Call RunSplit If Range("A3").Value > 0 then Range("A2:C2”).Delete Shift:=xlUp End If Next End Sub 

Answer 1

尝试这个：

 Sub loop_through_rows() Dim rngQuantityCells As Range Set rngQuantityCells = Range("A2", Range("A2").End(xlDown)) For i = 1 To rngQuantityCells Call RunSplit If Range("A3").Value > 0 Then Range("A2:C2").Delete Shift:=xlUp End If Next End Sub 

注意你需要在同一行上。 另外，您在原始文章中的Range("A2:C2")有两个“样式”（？）的引号。