最終行を取得するVBAのコード－End(xlDown):Excel VBA Rangeオブジェクト/Endプロパティ

▼最終行の行番号をメッセージボックスに表示するコード ※A列にデータが隙間なく入力されているときに最終行の行番号をメッセージボックスに表示する例 MsgBox Range("A1").End(xlDown).Row 上記のコードを実行すると、A列の最終行の行番号がメッセージボックスに表示されます。 Range("A1").End(xlDown)というコードの意味 Excelでセル選択を行うのにとても便利な［Ctrl］＋矢印キーという操作があります。 Excelには、データの途切れるセルがわかっているのです。 データの途切れるセルがわかっているので［Ctrl］＋矢印キーというショートカットキーで、データの途切れるセルを選択できるわけです。 そのデータの途切れるセルをVBAで取得するときに利用するのが、RangeオブジェクトのEndプロパティです。 データの途切れる箇所と一言で言っても、4方向

[U1and0]

上記ではメッセージボックスに行番号をいきなり表示するので 　MsgBox Range("A1").End(xlDown).Row としていますが、その行番号をプロシージャの中で使うのなら 　end_row = Range("A1").End(xlDown).Row のような形で変数に格納して使うと便

[moondoldo]

最終行 取得