Doの使い方

トップページ（目次）

213.Doの使い方

＜実行前後＞

→

Sub Doの基本的な使い方や考え方()

    行 = 1 '1行目から開始
    
    Do While Range("A" & 行) <> "" 'A列◯行が空欄になるまで継続する
            
        Range("A" & 行) = 行 & "ぎょう" 'Range("A1") = 1ぎょう
                                                     'Range("A2") = 2ぎょう
                                                     'Range("A3") = 3ぎょう となる
        行 = 行 + 1 '次の行に進む
        
    Loop

End Sub

Do While ◯◯ は、Loop While ◯◯ と下の方へ付けることもできる。今回のケースは同じ結果ですが、状況に合わせて使い分けます。

Sub Doの基本的な使い方や考え方_Loop_While版()

    行 = 1 '1行目から開始
    
    Do
            
        Range("A" & 行) = 行 & "ぎょう" 'Range("A1") = 1ぎょう
                                        'Range("A2") = 2ぎょう
                                        'Range("A3") = 3ぎょう となる
        行 = 行 + 1 '次の行に進む
        
    Loop While Range("A" & 行) <> "" 'A列◯行が空欄になるまで継続する

End Sub