【VBA】最終行の取得（Endプロパティ）

VBAでデータ操作をする際、「連続したデータの最後を見つけたい」「表の最終行や最終列を取得したい」といった場面はよくあります。
そんなときに便利なのがEndプロパティです。ここでは、Endプロパティの基本と具体的な使い方を初心者向けに解説します。

---

1. Endプロパティとは？

Endプロパティは、Excel上で【Ctrlキー + 矢印キー】を押したときと同じ動きをVBAで再現できる機能です。
つまり、データが連続している範囲の最後のセルを簡単に見つけることができます。

---

2. 基本構文

Range(開始セル).End(方向)

• 開始セル：基準となるセル
• 方向：移動する方向を指定
  → xlUp（上）、xlDown（下）、xlToLeft（左）、xlToRight（右）

---

3. 具体例とよく使うパターン

3.1 下方向（xlDown）

Sub 下方向のEnd()
    Range("A1").End(xlDown).Select
End Sub

→ A1セルから下方向へ連続データの最後まで移動します。

---

3.2 上方向（xlUp）

Sub 上方向のEnd()
    Range("A10").End(xlUp).Select
End Sub

→ A10セルから上方向へ連続データの最初まで移動します。

---

3.3 右方向（xlToRight）

Sub 右方向のEnd()
    Range("A1").End(xlToRight).Select
End Sub

→ A1セルから右方向へ連続データの最後まで移動します。

---

3.4 左方向（xlToLeft）

Sub 左方向のEnd()
    Range("D1").End(xlToLeft).Select
End Sub

→ D1セルから左方向へ連続データの最初まで移動します。

---

4. 実用例：最終行の取得

データの最終行を取得する場面では、Endプロパティが定番です。

Sub 最終行の取得()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox "最終行は " & lastRow & " 行目です。"
End Sub

このコードでは、A列の最下部から上方向へEndプロパティでデータの最後を探し、その行番号を取得しています。

---

5. 注意点

• Endプロパティは連続したデータの範囲までしか移動しません。途中に空白セルがあると、そこで止まります。
• 完全な最終行や最終列を正確に取得する場合は、空白の考慮が必要です。
• 必ず、データの配置状況を理解したうえで使いましょう。

---

6. まとめ

操作内容	コード例
下方向へ移動	Range("A1").End(xlDown).Select
上方向へ移動	Range("A10").End(xlUp).Select
右方向へ移動	Range("A1").End(xlToRight).Select
左方向へ移動	Range("D1").End(xlToLeft).Select
最終行取得	Cells(Rows.Count, 1).End(xlUp).Row

---

Endプロパティを活用すれば、データ範囲の自動判定や効率的なセル移動ができ、作業の自動化や高速化に大きく役立ちます。ぜひ活用してみてください。