【簡単便利！】1行ごとに行を挿入する方法を初心者向けに解説！【Excel VBA】

2021年4月5日2021年9月3日

こんにちは！『ルウちゃんのExcel Labo』管理人の＠rouxchanblogです！

今回はこのような悩みについて解説します。

ルウちゃん

1行ごとに行を挿入する方法ってどうやるの？

この記事でわかるようになること

サンプルコード紹介

1行ごとに行を挿入するには「行の挿入」、「最終行の取得」、「繰り返し処理」を組み合わせることが必要です！

まずはサンプルコードと実行画面を見て、動きを確認してみましょう！

サンプルコード

Dim 最終行 As Long
Dim i As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
   Rows(i).Insert
Next i

解説が必要ないという方はこのコードをコピーして使ってください！

記述方法

Dim 最終行 As Long
Dim i As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
   Rows(i).Insert
Next i

行を挿入する時は「Insertメソッド」を使います。

Rows(3).Insert

通常はこのように、行数を選択することによって行を挿入します。(この場合は3行目)

しかし、今回の場合では処理を繰り返したいので1行目や2行目といった決まったところに挿入されるわけではありません。

こんな場合は変数を使って指定しましょう！

次は今回使った変数について解説します！

記述方法

Dim 最終行 As Long
Dim i As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
   Rows(i).Insert
Next i

今回は2つの変数を定義しました。

1つ目は「繰り返し処理」をするための変数「i」です。

「繰り返し処理」をする変数は整数型を使用しますので、一般的に「i」を使うことが多いです。

2つ目の関数は最終行を取得するために使う変数です。

今回はわかりやすいように「最終行」という変数名にしました。

変数名はなんでも大丈夫ですが、後で見た時に自分のわかりやすい名前にしておきましょう。

筆者は後で見返した時にわかりやすいので日本語で書くことも多いです！

場面に応じて使い分けていきましょう！

記述方法

Dim 最終行 As Long
Dim i As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
   Rows(i).Insert
Next i

次に最終行を取得します。

最終行を取得しておくことで、次に解説する「繰り返し処理」の終了を指定することができます！

今回使用する方法は最も下の行から順に文字が入力されている行を探していき、その行が何行目なのかを取得するやりかたです。

最後に「For文」を使って処理を繰り返していきます。

For カウンタ変数 = 初期値 To 終了値
繰り返し処理
Next　カウンタ変数

この形が基本的な構文です！暗記する必要はありませんがよく使う構文なので頭の片隅に置いておきましょう！

記述方法

Dim 最終行 As Long
Dim i As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
   Rows(i).Insert
Next i

これで「最終行」から1行ずつ順に行の挿入を繰り返すことができます。

最終的に1番上の行まできたら「繰り返し処理」は終了します。

今回は1行置きに行を挿入する方法を解説しました。

やりたいことをするにはどのような処理が必要かを考えることがVBAの学習には大事になってきます。

根気強く学んでいきましょう！

この記事で少しでもみなさんのお役に立てると幸いです。

ありがとうございました！