ExcelVBAを使用して最後の行を取得する方法(マクロ)
VBAを使用して最後の行を取得(選択)する方法(マクロ)
VBA(マクロ)を使って最後の行を取得(選択)する方法を紹介します。
VBAを使用すると、ショートカットキーCtrl +下矢印(下矢印キー)と同じように、最後の行を簡単に取得(選択)できます。
例として、次のようなコードを使用します。
Sub SelectLastLow()
Dim LASTROW As Long
LASTROW = Cells(1, 1).End(xlDown).Row
MsgBox LASTROW & " 行目が最終行です。"
End Subまた、VBAを編集するには、「開発者タブ」を表示する必要があります。
Excelでは開発タブがデフォルトでは表示されないので、以下の記事を参考にタブを表示させましょう。
Excelで開発者タブを表示する方法
最後の行を取得する
テーブルやデータが長くなったら、マクロを設定して最後の行を検索し、メッセージボックスに「○行目が最後の行です。」と表示します。
作業時間:1分
データを準備してVBAを開く
今回は、上の画像のように、列Aに配置された1から10までの数字のシートを使用します。正しく設定すると、最後の行として10行目が得られます。①発達タブ、(2)[ビジュアル ベーシック]を選択します。します。
標準モジュールを開く
[アプリケーション用 Visual Basic ]ダイアログ ボックスが開きます。①▼ボタン、(2)標準モジュールを選択します。
コードを入力して実行する
(1)上記の「VBA(マクロ)を使用して最後の行を取得(選択)する方法」セクションを参照してくださいコードを入力します。②▶ ボタンを選択します (ユーザー フォームの実行)。します。
最後の行が取得されます。
Excel に戻ると、"10 行目が最後の行です" というメッセージ ボックスが表示されます。これで、VBAを使用して最後の行を取得できました。
最後の行を選択する
VBAを使用して最後の行のセルを選択する方法を紹介します。
列を指定して最後の行を選択する方法
列を指定して最後の行を選択する方法は以下のとおりです。
今回はA列の最後の行を選択する方法を紹介します。
①発達タブ、(2)[ビジュアル ベーシック]を選択します。します。
[アプリケーション用 Visual Basic ]ダイアログ ボックスが開きます。
①▼ボタン、(2)標準モジュールを選択します。
①次のコードを入力してくださいします。
Sub SelectLastLow()
Cells(1, 1).End(xlDown).Select
End Sub今回はA列の最後の行を選択するので「Cells(1,1)」を使いましょうが、それ以外の列の場合は任意に変更してみましょう。
②▶ ボタンを選択します (ユーザー フォームの実行)。します。
Excel画面に戻ると、A列の最後の行である「10行目」が選択されています。
アクティブセルの最後の行を選択する方法
選択したセルと同じ列の最後の行を選択する方法は以下のとおりです。
①任意のセル(例:B1セル)、②発達タブ、(3)[ビジュアル ベーシック]を選択します。します。
[アプリケーション用 Visual Basic ]ダイアログ ボックスが開きます。
①▼ボタン、(2)標準モジュールを選択します。
①次のコードを入力してくださいします。
Sub SelectLastLow()
ActiveCell.End(xlDown).Select
End Sub②▶ ボタンを選択します (ユーザー フォームの実行)。します。
Excel画面に戻ると、先ほど選択したB1セルの最後の行である「行10」が選択されています。
空白がある場合の最後の行を選択する方法
テーブルまたはデータに空白の行またはセルがある場合に最後の行を選択する方法を示します。
上の画像のシートでは、列 A の行 4 から 6 が空白です。
通常、最後の行をそのまま選択する設定にすると「3行目」が選択されます。
今回は、空白行を含むA列の最後の行(10行目)を選択する方法を紹介します。
①任意のセル(例:A1セル)、②発達タブ、(3)[ビジュアル ベーシック]を選択します。します。
[アプリケーション用 Visual Basic ]ダイアログ ボックスが開きます。
①▼ボタン、(2)標準モジュールを選択します。
①次のコードを入力してくださいします。
Sub SelectLastLow()
Cells(Rows.Count, 1).End(xlUp).Select
End Sub②▶ ボタンを選択します (ユーザー フォームの実行)。します。
Excelに戻ると、空白のセルをスキップして、10行目が選択されています。