Excel VBA 最終行を取得する方法

Excel VBAで最終行を取得する方法は、データ処理やマクロの作成において非常に重要です。

最終行を正確に特定することは、データの範囲を制御するために必要なステップです。

この記事では、Excel VBAで最終行を取得するさまざまな方法について詳しく説明します。

UsedRangeを使用する方法
1. 使用例
End(xlUp)を使用する方法
1. 使用例
Range.Findを使用する方法
1. 使用例
まとめ

UsedRangeを使用する方法

UsedRangeを使用してExcel VBAで最終行を取得する方法は、ワークシート上で使用されているセルの範囲を表すプロパティです。

このプロパティは、ワークシート上で実際にデータが存在する範囲を特定し、その範囲内の最終行を取得するのに便利です。

使用例

Sub GetLastRowWithUsedRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") 

    ' UsedRangeを取得
    Dim usedRange As Range
    Set usedRange = ws.UsedRange

    ' UsedRange内の最終行を取得
    Dim lastRow As Long
    lastRow = usedRange.Rows(usedRange.Rows.Count).Row

    ' 結果をメッセージボックスで表示
    MsgBox "最終行: " & lastRow
End Sub

１．ws変数を使用して、特定のワークシートを設定します。この例では、”Sheet1″というワークシートを対象にしていますが、必要に応じてシート名を変更してください。

２．UsedRangeプロパティは、wsワークシート上で使用されているセルの範囲を表すRangeオブジェクトを取得します。

３．lastRow変数を宣言して、UsedRange内の最終行を格納するための場所を用意します。

４．lastRow変数にusedRange.Rows(usedRange.Rows.Count).Rowを代入して、UsedRange内の最終行の行番号を取得します。

usedRange.Rows.CountはUsedRange内の行数であり、それに.Rowを追加することで最終行の行番号が得られます。

５．最終行の行番号をメッセージボックスで表示してユーザーに通知します。

このコードを実行すると、選択したワークシート上で使用されているデータの最終行の行番号が表示されます。これにより、データ処理や他の操作で必要な範囲を特定するのに役立ちます。

注意事項として、UsedRangeはワークシート上でデータが実際に使用されたセルを範囲として認識するため、時折不要なセルが含まれることがあります。データをクリアした場合でも、UsedRangeは以前のデータを参照し続けることがあります。したがって、データの変更後にUsedRangeを再計算することが推奨されます。

End(xlUp)を使用する方法

End(xlUp)を使用してExcel VBAで最終行を取得する方法は、特定のカラム内で上方向に移動して、最終行を特定する手法です。

この方法は、データが途中で空白セルを含んでいても正確に最終行を見つけるのに便利です。

使用例

Sub GetLastRowWithEnd()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") 

    ' カラムAの最終行を取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' 結果をメッセージボックスで表示
    MsgBox "最終行: " & lastRow
End Sub

２．lastRow変数を宣言して、最終行の行番号を格納するための場所を用意します。

３．ws.Cells(ws.Rows.Count, 1)を使用して、指定したカラム（ここではカラムA、1列目）の最下行のセルを取得します。ws.Rows.Countはワークシートの行数を取得し、1はカラムAを表します。

４．.End(xlUp)を使用して、最下行から上方向に移動して最初に出会った非空セルを探します。これにより、カラム内の最終行が見つかります。

５．最終行の行番号をlastRow変数に格納します。

６．最終行の行番号をメッセージボックスで表示してユーザーに通知します。

このコードを実行すると、カラムA内の最終行の行番号が表示されます。End(xlUp)を使用すると、データセット内で最終行を見つけるために効果的であり、データ内に空白セルがあっても正確に最終行を取得できます。

注意事項として、データセットが空である場合や最初のセルが空である場合にはエラーが発生する可能性があるため、適切なエラーハンドリングを追加することが推奨されます。

Range.Findを使用する方法

Range.Findを使用してExcel VBAで最終行を取得する方法は、指定した条件に一致するセルを探し、そのセルの行番号を取得する手法です。

この方法は、特定のデータを検索して最終行を見つけたい場合に便利です。

使用例

Sub GetLastRowWithFind()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") 

    ' 検索条件を設定
    Dim searchValue As String
    searchValue = "*" ' ここに検索条件を指定

    ' Range.Findを使用して検索
    Dim foundCell As Range
    Set foundCell = ws.Cells.Find(What:=searchValue, _
                                LookIn:=xlValues, _
                                LookAt:=xlPart, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlPrevious)

    If Not foundCell Is Nothing Then
        ' 一致したセルが見つかった場合、その行番号を取得
        Dim lastRow As Long
        lastRow = foundCell.Row

        ' 結果をメッセージボックスで表示
        MsgBox "最終行: " & lastRow
    Else
        ' 一致するセルが見つからなかった場合の処理
        MsgBox "一致するセルが見つかりませんでした。"
    End If
End Sub

２．searchValue変数を使用して、検索条件を指定します。この例では”*”というワイルドカードを使用して、任意のテキストを検索しますが、必要に応じて検索条件を変更できます。

３．Range.Findメソッドを使用して、指定した条件に一致するセルを探します。各引数について説明します

What: 検索条件（ここではsearchValue変数を使用）
LookIn: 検索する内容（セルの値を検索）
LookAt: 一致の種類（部分一致を使用）
SearchOrder: 検索順序（行単位で検索）
SearchDirection: 検索方向（上方向に検索）
foundCell変数に見つかったセルを格納します。もし一致するセルが見つからなかった場合は、foundCellはNothingになります。

４．一致するセルが見つかった場合、そのセルの行番号をlastRow変数に格納します。

５．結果をメッセージボックスで表示します。一致するセルが見つからなかった場合にもエラーメッセージを表示します。

このコードを実行すると、指定した検索条件に一致する最終行の行番号が表示されます。

Range.Findを使用することで、検索条件に合致するセルを見つけることができ、そのセルの行番号を取得することができます。