在前100行中循环编码，然后在后1000行中循环编码

Question

我有一组代码，想要在Excel工作表的所有行中循环。这里的限制是我使用的代码一次只能处理1000行。我想做的是每次在下一个第1000行使用一次for语句设置指针。这意味着我的代码首先在前1000行中运行，然后又返回并在接下来的1000行中运行，直到最后一行。请任何人让我知道我如何在VBA中做到这一点。谢谢！

Answer 1

这会将所有循环的行染成蓝色。

Public Sub LoopMe()
    Dim i As Long
    For i = 1 To 2 ^ 20 Step 1000
        Worksheets(1).Rows(i).Interior.Color = vbBlue
    Next i
End Sub