Question

我编写了一个运行良好的基本循环，但是如果有数字标题我需要它忽略第1行（我之前使用过On Error Resume Next for String Headers，但我不认为这是最好的处理方式情况）。基本上，我希望循环从第二行开始。

Sub DoTest()


Dim i As Long
i = 1

Do



Cells(i, 3).Value = Cells(i, 1) / Cells(i, 2)

i = i + 1


Loop Until IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 1))

Range("C1").Select
End Sub

Answer 1

您需要将行i=1更改为i=2

您可能应该使用while循环，因为您在检查第一行是否为空之前正在尝试执行除法。您可能还需要Cells.Value

Sub DoTest()

    Dim i As Long
    i = 2

    while not IsEmpty(Cells(i, 2)) And not IsEmpty(Cells(i, 1))

        Cells(i, 3).Value = Cells(i, 1).Value / Cells(i, 2).Value

        i = i + 1

    wend

    Range("C1").Select

End Sub

直到循环跳过第1行

1 个答案: