Loopが1行目をスキップするまで実行する

Question

よく動作する基本ループを作成しましたが、数値ヘッダーがある場合は行1を無視する必要があります（以前はOn Error Resume NextをString Headersに使用しましたが、状況を処理する最善の方法でした）。基本的には、ループを2行目から開始したいと思います。

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

あなたが現在最初の行が非空であることを確認する前に除算を実行しようとしているとして、あなたはおそらく、whileループを使用する必要がありますi=2

にラインi=1を変更する必要があります。おそらく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