Excelで自動的に次の空白行にデータを書き込みたい場面は多くございます。特に、既存データの末尾に新しい情報を追加する処理は業務自動化の定番です。
本記事では、VBAで「次のデータ行」を取得する複数の方法をご紹介いたします。
方法1：縦方向に連続したデータの末尾を取得する
Range("A1").End(xlDown).Offset(1).Select
この方法では、セル A1 から下方向にデータが続いている場合、その最終行の1つ下の行が選択されます。連続データが前提です。
方法2：最終行から上方向に検索して次の行を取得
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
こちらは「列Aの最終行から上方向に検索し、データがある最後のセルの次の行を選ぶ」方法です。空白を挟む可能性がある場合に有効です。
方法3：表形式の最下行の次に追加する
Dim entryTable As Range, headerRow As Range
Set entryTable = Range("B2").CurrentRegion
Set headerRow = entryTable.Rows(1)
headerRow.Offset(entryTable.Rows.Count).Value = _
Array(1004, #7/2/2024#, "Mori Branch", 107908, "Hayashi Kimiko")
このコードは、見出し行の直下からなる表（CurrentRegion）に対して、次の行にデータを1行分追加する例です。
方法4：Find関数で最終データ位置を探して次の行へ
Dim searchCol As Range, lastDataCell As Range
Set searchCol = Range("C1", Range("C1").End(xlDown))
Set lastDataCell = searchCol.Find( _
what:="*", _
After:=searchCol.Cells(1), _
LookIn:=xlValues, _
SearchDirection:=xlPrevious)
lastDataCell.Offset(1).Value = "Mori Branch"
こちらは、特定列の最終データ位置をFind関数で検索し、その直下に新しいデータを挿入する方法です。より柔軟で安定性の高い手法です。
活用ポイントと注意事項
| ポイント | 解説 |
|---|---|
xlDown は空白に弱い | 空白セルがあると期待と異なる位置を返す可能性があります |
xlUp を活用した方法が安定 | 下から上に検索する方法は空白行を含むデータに強く、実務向きです |
Find は柔軟性が高い | 表形式以外の構成でも使いやすく、条件に合った検索が可能です |
まとめ
「次のデータ行を取得する」という処理は、VBAを使ったExcelの自動化で非常に頻繁に登場します。業務の特性に応じて、適切な手法を選ぶことで、正確かつ効率的な処理が実現できます。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
