Do Untilj > 10 Cellsi, j) = 1 j = + 1 Loop i = + 1 Loop End 第18.最終行の取得(End,Rows.Count) .EndxlDown):Ctrl+↓ 手操作、A列の最終行に移動する場合は、 A1セが選択されている状態で、 Ctrl+ ↓ これ、A11に移動できます。 これマクロVBAでは、 Cells...
Sub DoLoopUntil() Dim n As Integer n = 1 Do MsgBox n n = n + 1 Loop Until n > 10 End SubDoループの終了Exit ForでForループを抜けるのと同じように、Exit DoコマンドでDoループをすぐに抜けることができます。Exit Do以下は、Exit Doの例です。