Excelでデータを扱う際、「どこまでデータがあるかを調べて、その下に自動で新しい行を追加したい」といった場面はよくあります。
VBAを使えば、データの最終行を取得し、その下に新しい行を追加する処理を簡単に行うことができます。
ここではその基本的な方法を紹介します。
1. 最終行の取得方法
最終行を取得するには、Cells(Rows.Count, 列番号).End(xlUp).Rowを使います。
基本構文
Dim lastRow As Long
lastRow = Cells(Rows.Count, 列番号).End(xlUp).Rowこの構文は、指定した列の下から上に向かって最初にデータがあるセルの行番号を取得します。
例：A列の最終行を取得
Sub 最終行を取得する()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "A列の最終行は " & lastRow & " 行目です。"
End Subこのコードを実行すると、A列の最終行番号がメッセージボックスに表示されます。
2. 最終行の下に新しい行を追加する
取得した最終行に1を足せば、新しいデータの挿入位置（次の行）を求められます。
例：A列の最終行の下に値を追加する
Sub 最終行の下に値を追加する()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
'次の行にデータを追加
Cells(lastRow + 1, 1).Value = "新しいデータ"
End Subこのコードは、A列の最後のデータの下の行に「新しいデータ」という文字列を追加します。
3. 応用：複数列にデータを追加
Sub 最終行の下に複数データを追加する()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lastRow + 1, 1).Value = "ID004"
Cells(lastRow + 1, 2).Value = "田中一郎"
Cells(lastRow + 1, 3).Value = "営業部"
End Subこのコードでは、A列～C列の3列にわたって新しい行にデータを追加しています。
4. 注意点
- 最終行の取得は、列ごとに異なる可能性があります。
→ 必ずデータが連続している列（たとえばIDや日付など）を基準にするのが安全です。 - データが1行も存在しない場合、取得結果は1になるため、初期状態の対応が必要なケースもあります。
- セルに数式だけがある、または空白セルに書式だけがある場合、見かけ上空白でも最終行に認識されることがあります。
5. まとめ
| 処理内容 | コード例 |
|---|---|
| A列の最終行を取得 | Cells(Rows.Count, 1).End(xlUp).Row |
| 最終行の下に1つのデータ追加 | Cells(lastRow + 1, 1).Value = "新しいデータ" |
| 最終行の下に複数列データ追加 | Cells(lastRow + 1, 列番号).Value = 値 を複数列分記述 |
VBAで最終行を自動的に見つけて新しいデータを追加できるようになると、データの追記やログ記録などがとても簡単になります。
この基本をマスターして、柔軟なデータ処理を実現していきましょう。
コメント