Do 〜 Loop
指定した条件の間処理を繰り返す命令文です。基本的には「Do」の後ろに条件文を記述します。
条件文には「While」「Until」を指定できます。
While :〜である間
Until:〜でない間
基本的には「while」を使用することが多いです。
●文法
Do while 繰り返し条件 処理 Loop |
---|
●使用例
A列に値が入ってる間、A列の値をB列に転記していきましょう。
Dim linecnt As Long linecnt = 1 Do while Cells(linecnt,1) <> "" Cells(linecnt,2).Value = Cells(linecnt,1).Value linecnt = linecnt + 1 Loop |
---|
●実行前
●実行後
For 〜 Next文と違って注意しなければいけないことがあります。
・Do 〜 Loop文の前に繰り返しに使う変数を初期化しないといけない。
・自分で命令文を記述してカウントアップさせないと無限ループする。
・終了条件ではなく、繰り返し条件です。逆に書かないように。
以上、3点に注意して使用しましょう。
For 〜 Next文 | For 〜 Each文 |
---|