VBAで最終行と最終列を簡単に取得する方法｜セル番号や値の取得も完全網羅

「Excel VBAで、データの最終行や最終列を取得したいけど、どうやってやるのだろう．．．」
そんな疑問を持っていませんか？

・もう手動で表の終わりを探したくない！

・任意のセル範囲で最終行・最終列の番号やデータを取得したい

その場合は、VBAを使用して「最終行・最終列」を
取得すると解決しますよ！

この記事では、Excel VBAを使って「最終行」・「最終列」の「セル番号」や「値」を取得する方法を詳しく解説します。

「最終行」・「最終列」の「セル番号」や「値 」を効率よく取得することで、Excelでのデータ操作が簡単になり、作業の効率を大幅に向上させることができます。

基本的な使い方から、実際の業務で役立つ応用例まで、分かりやすく解説していきます。
ぜひ最後までお読みください。

【　この記事の概要　】

VBAをしっかり学びたいけれど、「どこから始めればいいかわからない」と迷っていませんか？

そんな方には、UdemyのVBA講座がおすすめです。

動画での丁寧な解説や、実践的な学習スタイルで、初心者でも無理なく基礎から応用まで習得できます。
自己学習を進める上で、何度でも繰り返し見返せる講座は非常に心強い味方になりますよ！

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

この記事を見て「できるようになる」こと

VBAで最終行・最終列を取得すると何ができる？

VBAで最終行・最終列を取得するとは、Excelシート内のデータが入力されている最後の行や列を動的に見つける操作のことです。

通常、Excelでは「Ctrl + ↓（下矢印）」や「Ctrl + →（右矢印）」でデータの終端を探すことができますが、VBAを使うことで、毎回最新のデータ範囲を自動で検出できます。

VBAの最終行・最終列を活用する3つのメリット

でも、VBAで最終行・最終列が取得できたら
具体的にどんなことが便利になるの？

VBAで最終行・最終列を取得すると、データの増減に自動対応でき、手作業で範囲を選択する手間が不要になります！
その結果、業務効率が大幅にアップし、ミスも減らすことができますよ。

ここでは最終行・最終列を取得すると便利になる、以下の3つの場面を紹介します。
これにより、手作業を減らし、ミスを防ぐことで業務の効率を大幅にアップできます！ 🚀

VBAで「最終行」と「最終列」の番号を取得する基本的な方法を解説

それでは、VBAで最終行・最終列の番号を取得するコードを紹介します。

最終行を取得するコード

最終行を取得するためのVBAコードは以下の通りです。

最終列を取得するコード

最終列を取得するためのVBAコードは以下の通りです。

.End メソッドの使い分けについて

最終行・最終列を取得する際に使用する .End メソッドには、以下の4種類があります。

VBAで「最終行」と「最終列」を取得する「4つ」のパターンを解説

「最終行」の行番号・値取得する方法

最終行-1 : 最終行から上昇し、行番号・値を取得する

次のコードは、シートの最終行から上方向に検索し、最初にデータが見つかった行番号・値を取得します。

Dim lastRow As Long
Dim lastValue As Variant

'// 最終行の行番号を取得
lastRow = Cells(Rows.Count, "B").End(xlUp).Row

'// 最終行の値を取得
lastValue = Cells(lastRow, "B").Value

■ よく使われる例

この方法は、表のデータが飛び飛びになっている場合や、途中に空白行がある場合に特に役立ちます。
空白行があっても、最下部からデータを探し始めるため、正確に最終行とその値を取得できます。

最終行-2 : 指定したセルから下降し、行番号・値を取得する

次のコードは、シートの指定したセルから下方向に検索し、最後のデータが見つかった行番号を取得します。

Dim lastRow As Long
Dim lastValue As Variant

'// 最終行の行番号を取得
lastRow = Cells(2, "B").End(xlDown).Row

'// 最終行の値を取得
lastValue = Cells(lastRow, "B").Value

■ よく使われる例

この方法は、データが連続している場合や、空白行がない表形式のデータに特に有効です。
データが途中で途切れていない限り、指定したセルから最終行とその値を素早く取得できます。

「最終列」の行番号・値取得する方法

最終列-1 : 最終列から左に行き、列番号・値を取得する

次のコードは、シートの最終列から左方向に検索し、最初にデータが見つかった列番号・値を取得します。

Dim lastCol As Long
Dim lastValue As Variant

'// 最終列の列番号を取得
lastCol = Cells(2, Columns.Count).End(xlToLeft).Column

'// 最終列の値を取得
lastValue = Cells(2, lastCol).Value

■ よく使われる例

この方法は、データが途中で途切れている場合や、空白の列が含まれている場合に特に有効です。
最終列から左に向かってデータを探し始めるため、正確に最終列とその値を取得できます。

最終列-2 : 指定したセルから右に行き、列番号・値を取得する方法

次のコードは、シートの指定したセルから右方向に検索し、最後のデータが見つかった列番号とその値を取得します。

Dim lastCol As Long
Dim lastValue As Variant

'// 最終列の列番号を取得
lastCol = Cells(2, "B").End(xlToRight).Column

'// 最終列の値を取得
lastValue = Cells(2, lastCol).Value

■ よく使われる例

この方法は、データが連続している場合や、空白列がない場合に特に有効です。
指定したセルから右方向に連続するデータの最後の列を素早く特定し、その値を取得できるため、効率的に操作を行えます。

VBAで「最終行」と「最終列」を取得する際の注意ポイント

最終行や最終列を取得する際には、いくつかの注意ポイントがあります。

これらに注意を行わないと正常に最終行・最終列が取得できなくなる可能性があるため、注意しましょう。

注意ポイント1: 空白セルに注意する

最終行や最終列の取得では、空白セル (スペース) が含まれていると正しい範囲を取得できないことがあります。

発生する問題

このようにデータが飛び飛びになっていると、途中の空白セルで取得が止まる可能性があります。

対策について

注意ポイント2: 適切なメソッドを使用する

データの最終行や最終列を正確に取得するためには、適切なメソッド（xlUpやxlToLeft）を使用することが重要です。

発生する問題

対策について

注意ポイント3: フィルターや非表示セルに注意する

フィルターや非表示行・列がある場合、取得結果が意図しないものになることがあります。

発生する問題

対策について

Dim lastRow As Long

lastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count

「最終行」「最終列」取得の使用例をご紹介

ここからは、最終行・最終列を取得する具体的な使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAをしっかり学びたいけれど、「どこから始めればいいかわからない」と迷っていませんか？

そんな方には、UdemyのVBA講座がおすすめです。

動画での丁寧な解説や、実践的な学習スタイルで、初心者でも無理なく基礎から応用まで習得できます。
自己学習を進める上で、何度でも繰り返し見返せる講座は非常に心強い味方になりますよ！

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: 表の最終行までFor文で繰り返す

Excelシートの指定した列の最終行まで繰り返し処理を行い、各セルに対して操作を実行する方法を紹介します。

コード

Sub LoopThroughRows()
    Dim lastRow As Long
    Dim i As Long
    
    '// 最終行を取得
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    '// 2行目から最終行まで繰り返し処理を行う
    For i = 3 To lastRow
        '// セルに対して任意の処理を実行
        Cells(i, "E").Value = "処理済み"
    Next i
End Sub

処理結果

コードの動作概要

このコードで使用している機能

1行ずつコードを解説

このコードは、Excelシートの指定された範囲内で繰り返し処理を行う際に非常に便利です。
特定の列に処理が完了したことを示すマークを付けるなど、データ処理の結果をわかりやすく可視化するために使用できます。
データが増減しても動的に最終行を取得して処理を行うため、効率的かつ柔軟な対応が可能です。

使用例2: 表の最終行の1つ下にデータを追加する

指定された列の最終行を取得し、その1つ下の行に新しいデータを追加する方法を紹介します。
新しいデータを表に追加していく作業に適しています。

コード例

Sub AddDataToLastRow()
    Dim lastRow As Long
    
    '// 最終行を取得
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    '// 最終行の次の行にデータを追加
    Cells(lastRow + 1, "B").Value = "新しいデータ"
End Sub

処理結果

コードの動作概要

このコードで使用している機能

1行ずつコードを解説

このコードは、Excelの表に新しいデータを追加する際に非常に有効です。
最終行を自動的に検出し、その1つ下の行にデータを追加することで、データが増えても簡単に管理できます。
ルーチン作業の一部を自動化するのに役立ち、作業効率を大幅に向上させることができます。

使用例3: グラフのデータ範囲を最終行まで自動更新する

このコードでは、 Excelのグラフのデータ範囲を、最終行まで自動更新する方法を紹介します。
新しいデータを追加しても、VBAが最終行を検知し、グラフ範囲を自動調整することで、常に最新のデータを反映できます。

コード例

Sub UpdateChartRange()
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim dataRange As Range

    '// 対象のシートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    '// 最終行を取得（A列のデータを基準）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    '// 新しいデータ範囲を設定
    Set dataRange = ws.Range("A1:B" & lastRow) '// A列～B列の最終行までを範囲とする

    '// グラフオブジェクトを取得（シートにある最初のグラフ）
    Set chartObj = ws.ChartObjects(1)

    '// グラフのデータ範囲を更新
    chartObj.Chart.SetSourceData Source:=dataRange
End Sub

処理結果

コードの動作概要

このコードで使用している機能

1行ずつコードを解説

総括・ポイント

このコードを実装すると、 Excelのグラフが常に最新のデータを反映するようになります。
データを追加するたびに 手作業でグラフの範囲を変更する手間をなくし、業務の効率を向上させます。

この記事のまとめ

「最終行・最終列の取得」は、Excel VBAでデータの範囲を動的に管理し、効率的に操作するために欠かせない技術です。

このスキルを使えば、データが増減する場面でも正確にデータ範囲を把握し、自動化された処理や分析を行うことができます。

ポイントのおさらい

この記事の使用例を実践することで、VBAでの最終行・最終列の取得方法をマスターし、さまざまなデータ操作の効率を上げることができます。

サンプルコードをコピーして実行し、少しずつ自分の業務に応じたアレンジを加えていくことで、VBAの活用範囲を広げましょう。

まずは、日常の業務に取り入れて、作業効率の向上を実感してみてください。

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「Python...