Excelを使っていると「ここにもう1行追加したい！」という場面は驚くほど多いものです。手作業で右クリック→挿入を繰り返すのは面倒ですし、大量データを扱う現場では時間の浪費にもなります。そこで活躍するのがVBAで行を増やす（挿入する）テクニックです。この記事では単にコードを紹介するだけでなく、初心者がつまずきやすいポイントや、実務で役立つ応用方法まで徹底的に解説します。読み終わる頃には「VBAで行を増やすのはこんなに簡単なんだ！」と感じてもらえるはずです。
行を増やすVBAの基本をマスターしよう
Excelのイメージ
Rows.Insertを使ったシンプルな書き方
行を増やすVBAの基本はとてもシンプルです。対象となる行番号を指定して、Rows.Insertメソッドを使うだけ。例えば3行目に新しい行を追加したい場合は以下のように書きます。
vba
Rows(3).Insert
これで3行目に1行追加され、元のデータは下にずれます。
複数行を一度に増やす方法
3行まとめて増やしたいなら、範囲指定をしてRows.Insertを実行します。
vba
Rows("3:5").Insert
このコードを実行すると、3～5行目に3行分の新しい空白行が挿入されます。
実務で役立つ行の増やし方テクニック
最終行を動的に判断して増やす
現場では「最終行の下に追加」や「ヘッダーの下に常に1行追加」など、データの増減に応じて柔軟に行を増やす必要があります。その場合は最終行を変数に格納する方法が便利です。
vba
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(lastRow + 1).Insert
これでシートの最終行の下に自動で1行追加されます。データ件数が増減しても対応できるのがポイントです。
条件付きで行を増やす方法
「もしセルに値が入っていたら、その下に新しい行を増やす」といった条件付き処理も可能です。
vba
If Range("A2").Value <> "" Then
Rows(3).Insert
End If
このようにIf文を組み合わせることで、必要な時だけ自動で行を追加できるのです。
行と列を自在に操る応用テクニック
行を増やすだけでなく、削除・非表示・列操作も合わせて知っておくと作業効率が一気に高まります。ここではよく使う操作を整理します。
| 操作 | コード例 |
|---|---|
| 行の削除 | Rows(3).Delete |
| 列の削除 | Columns(“B”).Delete |
| 行の非表示 | Rows(3).Hidden = True |
| 列の挿入 | Columns(“C”).Insert |
| 複数列の非表示 | Columns(“B:C”).Hidden = True |
これらの操作はすべて「Insert」「Delete」「Hidden」の3つのキーワードを理解すれば応用できます。
excel行を増やすVBAに関する疑問解決
Q1: 挿入する行数を動的に決めたい場合は？
変数で範囲を指定すればOKです。例えばユーザー入力に応じて行数を増やすならInputBoxを利用します。
vba
Dim n As Long
n = InputBox("何行追加しますか？")
Rows("3:" & 2 + n).Insert
Q2: 増やした行に自動で書式をコピーするには？
行挿入後にFormatConditionsやCopyメソッドを組み合わせます。
vba
Rows(3).Insert
Rows(2).Copy
Rows(3).PasteSpecial xlPasteFormats
これで1行上のフォーマットを自動でコピーできます。
Q3: 行の増やしすぎで処理が重くなるのを防ぐには？
大量データで繰り返し挿入する場合はScreenUpdatingをFalseにして高速化します。
vba
Application.ScreenUpdating = False
'複数行追加処理
Application.ScreenUpdating = True
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Excel作業を効率化したい人にとって、excel行を増やすVBAは魔法のような武器になります。単純に1行挿入するだけでなく、最終行を自動判定したり、条件付きで増やしたりすることで、日常のルーチンワークが一気にスマートになります。また、行の挿入にとどまらず列操作や非表示処理も理解しておくと応用の幅が広がります。
結論として、行を増やす操作は「Rows.Insert」を起点に、変数や条件を組み合わせて使いこなすことが鍵です。明日からのExcel作業に取り入れて、あなたの時間をもっと自由にしてください。
コメント