循环调用 VBA 中的行

Question

我正在尝试在我的顶行上运行一个调用，然后删除该行并将单元格向上移动并再次在新的顶行上运行它。重复练习，直到没有更多的行。是的，我知道这可能是一种缓慢的方法，但我的调用每行大约需要 10 秒，所以这是跟踪进度（即剩下多少行）的好方法。

这是我到目前为止所得到的，但它不理解我删除范围 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

请注意，您需要在同一行上使用 Then。此外，您在 Range("A2:C2") 上的原始帖子中有两种“样式”(?) 引号。