VBAループ処理 Do Untilで値が入っている行数を取得の解決方法

連番処理などでシート内のセルに順番に行をダイナミックに追加していった場合に、最後のからのセルを調べて値が入っている行数(件数)を取得の解決方法である。

◆記述例
Sheets(シート1).Select
y = 0
Do
y = y + 1
Loop Until Range(A & y).Value =
============================
シート1の一行目から参照して、A列の値が入った最後の行数(件数)までを取得
とする。

解決方法の補足として、A列yの値が空になったとき、y-1が総件数となります。例えば一行目が項目名などのカテゴリーで使用していた場合は、y=1にすることで2行目を1としてカウントできるがあり、VBAについての特性です。


問題解決カテゴリーとしては、ループ処理についてのシステム開発に分類される。


情報について、検索エンジンでは下記の関連情報での組み合わせでインデックスされている。
vba for
vba if
vba 配列
vba 文字列
vba ループ 配列
vba 最終行
vba 検索
vba 日付 加算
vba ループ 抜ける
vba ループ continue