受講生 さん:

おはようございます。

結論だけ書くと、「ある列で値の入っているいちばん最後の行の行番号」を調べるには、以下のようにマクロを書きます。
（以下は、C例で調べる場合）

Sub hoge()
    Dim gyo
    Dim mx
    mx = Range("C" & Rows.Count).End(xlUp).Row
    For gyo = 2 To mx
        Debug.Print gyo
    Next
End Sub

「Range("C" & Rows.Count).End(xlUp).Row」って何よ？！というご質問があるかもしれませんが、前提が基礎編レベルの知識では回答しかねますので、ご容赦ください。
（発展編１で詳しく取り扱います）

結論だけ鵜呑みにして使うなら、それでも十分かと。
まずはよろしくお願いいたします。


> 同じ処理を複数行で実行するForNext構文で、
> 行数がわからない場合に、有効なデータが入っている行数を数えて指定する方法を教えて下さい。
>
> 　　Dim gyo
> 　　For gyo = 2 to 51
> 上記の「51」部分を関数に置き換えればよいと思うのですが、その関数がわかりません。宜しくご教示お願いいたします。

2018/02/22 16:32