エクセルのデータを操作するとき
セルに値が入っている間は処理を続けるって処理を
よくすると思うのでサンプルを作成しました。
' ループ対象の列の先頭セル Range("A1").Select ' 空白セルでない間はループする Do While ActiveCell.Value <> "" ' 空白セルでないときの処理 ' アクティブセルを１つ下に移動する ActiveCell.Offset(1, 0).Select Loop
処理はいたって簡単です。
最初の判定で対象のセルの値が空白かを判定。
Do While は条件が真の間はループが回ります。
あとは、条件が真のときの処理を記載して
セルを次の行に移動します。
セルの移動に関しては移動した方向を指定して実施できます。
ActiveCell.Offset(行番号, 列番号).Select
