【たった1行】汎用性抜群の「最終行取得の方法」をわかりやすく解説！【Excel VBA】

こんにちは！『ルウちゃんのExcel Labo』管理人の＠rouxchanblogです！

今回はこのような悩みについて解説します。

ルウちゃん

繰り返し処理をしたいけど最終行の取得がわからない！
どうやったらいいのかおしえて！

サンプルコードの紹介

解説の前にどんなコードを使うのか紹介します！

「解説は必要ない！」という方はコピペして使ってください！

Dim 最終行 '「最終行」という変数を宣言
    
最終行 = Cells(Rows.Count, 1).End(xlUp).Row

Cells(最終行, 2) = "←ここが最終行です"

このように行数が変わっても最終行を取得することができます。

次は具体的な方法について解説していきます！

最終行の取得の方法

まずはExcelの機能で最終行を取得する方法を考えてみましょう！

最終行まで飛ぶにはシートの最終行(1048576行目)から「Ctrl」＋「↑」で飛ぶことができます。

これと同じことをVBAでやるだけです！

VBAでは「Rows.Count」でシートの最終行(1048576行目)を求めることができます。

そして「End(xlUp)」で「Ctrl」＋「↑」このショートカットキーと同じ処理を行えます。

これら二つを組み合わせることによって最終行を求めているのです！

補足として「Endプロパティ」は「End(xlToLeft)」と記述すると「Ctrl」＋「←」と同じ機能が使えます！

次に最終行を取得するメリットについて解説します。

最終行を取得するメリット

最終行を取得は繰り返し処理をする時に必須になります。

Dim 最終行 '「最終行」という変数を宣言
Dim i As Long '「i」という変数を宣言
    
最終行 = Cells(Rows.Count, 1).End(xlUp).Row '最終行を取得
    
For i = 1 To 最終行 '1〜最終行まで繰り返し処理させる
Cells(i, 2) = i & "行目" '2列目に行数を入力する
Next i '繰り返し処理を終了する

このように繰り返し処理と組み合わせることで可能性を広げることができます。

For文の終了を指定する時は取得した最終行を入れることで変化の強いコードになりますのでおすすめです！

使用上での注意点

最終行の取得は「End(xlUp)」と記述すると説明しましたがこれには理由があります。

「End(xlDown)」で「Ctrl」＋「↓」をしても同じように最終行まで飛ぶこと自体は可能です。

しかし、間に空白セルがあると最終行まで飛ぶことができないので注意してください。

Dim 最終行 '「最終行」という変数を宣言
    
最終行 = Cells(1, 1).End(xlDown).Row

Cells(最終行, 2) = "←ここが最終行です"

このように途中で止まってしまうので最終行の取得には「End(xlUp)」を使いましょう！

まとめ

今回は最終行を取得する方法を解説してきました。

VBAを学んで最初に「なんだこれ？」と躓いてしまうポイントだと思います。

実際に筆者も意味が分からず苦戦しました。

よく分からない時こそ1つ1つの動きを確認しながら実行していくことが大切です。

まずはコピペで使ってみるのをおすすめなのでぜひこの記事を繰り返しみながら理解を深めてください！

この記事で少しでも皆さんのお役に立てれば幸いです！

忘れないうちにお気に入り登録もお願いします！

ありがとうございました！