循环调用 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").

上的原始 post 中有两个 "styles"(?) 引号

循环调用 VBA 中的行

Looped call on rows in VBA

excel

vba

call