エクセルの行を増やす決定打！一瞬で複数行を挿入する神ワザと時短術

エクセルの行を増やす決定打！一瞬で複数行を挿入する神ワザと時短術を徹底追究! 知っておきたい 情報と解説を分かりやすく展開します。

単発の行追加をショートカットでこなせるようになった先にあるのが、「手動での行追加そのものをなくす」アプローチです。これを実現する最も実用的な仕組みがエクセルテーブル行自動追加です。

対象の表を選択して「Ctrl」＋「T」を押し、範囲を「テーブル」に変換しておくと、最下行のセルで「Tab」キーを押すだけで自動的に新しいレコード行が下部に生成されます。特筆すべきは、上段に設定されていた複雑な計算式や入力規則、セルの塗りつぶしパターンが、人間の介入なしにそのまま引き継がれる点です。これにより、手動で行を増やした際に生じがちな「数式のコピー忘れ」や「計算範囲の参照ズレ」といった致命的なヒューマンエラーを根絶できます。

また、既存のデータリストに対して「1行ずつ空白行を差し込んでメモ欄を作りたい」という要望も現場で頻繁に聞かれます。手作業で行うと気の遠くなるこの課題には、エクセル1行おきに行を増やす裏技が有効です。データの隣の空き列に「1, 2, 3...」と連番を振り、その真下に同じ連番「1, 2, 3...」をもう一度コピーして貼り付けます。その連番列を基準にして「昇順で並べ替え」を実行するだけで、同じ数値を持つ行同士が交互に並び、一瞬にして全データの間に1行おきの空白行が完成します。

さらに定常的なバッチ処理においては、エクセル行追加VBAマクロ自動化が威力を発揮します。以下の短いコードを標準モジュールに登録しておけば、選択範囲内の各行の下へ一括で空白行を挿入することが可能です。

Sub InsertBlankRows() Dim i As Long Application.ScreenUpdating = False ' 選択範囲の下から上へ向かってループ処理を実行 For i = Selection.Rows.Count To 1 Step -1 Selection.Rows(i).Offset(1, 0).EntireRow.Insert Next i Application.ScreenUpdating = True End Sub

VBAで行を挿入する際の鉄則は「必ず下の行から上の行へ向かって（Step -1）ループ処理を行うこと」です。上から順に挿入してしまうと、新しくできた空白行自身が次の処理対象になってしまい、無限ループや意図しない位置への挿入を引き起こす原因となります。