VBAを使用してExcelシートの最後の行に移動する方法

Microsoft Excelの優れた点の1つは、便利な機能を自動化できることです。ビジネススプレッドシートに数百または数千の行が含まれている場合、そのセルを操作するのが難しい場合があります。独自の検索機能を構築して、この問題を解消してください。数行のコードを使用することで、スプレッドシートの最後の行を見つけて自動的に移動するVBASubを作成できます。

1

Excelを起動し、複数の列を含むスプレッドシートを開きます。

2

「Alt-F11」を押して「VisualBasic」エディタを開き、「挿入| モジュール。」VBAは、プロジェクトウィンドウに新しいモジュールを追加します。

3

プロジェクトウィンドウの右側に表示される編集ウィンドウに次のコードを貼り付けます。

Sub SelectLastRow（）Dim finalRow As Integer

finalRow = ActiveSheet.UsedRange.Rows.Count

if finalRow = 0 Then finalRow = 1 End If

Rows（finalRow）.Select End Sub

このSubは、行コレクションのCountプロパティを調べて、スプレッドシートの最後の行を決定します。次に、Subはその値をfinalRow変数に格納します。Subのfinalステートメントは、finalRowの値をVBASelectメソッドに渡します。

4

「F5」を押してサブを実行します。Selectメソッドは、スプレッドシートの最後の行を見つけ、その行に移動して強調表示します。