Excelに複数の空白行を挿入する方法

Microsoft Excelでマクロを作成すると、プログラム内で繰り返し予測可能なタスクを自動化することができ、時間を節約できます。

データエントリ間に空白行を挿入

2つのデータを入力するたびに2つの空白行を既存のスプレッドシートに挿入するマクロを作成したい場合は、利用できるマクロがあります。 最終結果は次のようになります。

デフォルトレイアウト：

 タイトル1
タイトル2
タイトル3
タイトル4 

マクロの後：

 タイトル1
タイトル2
タイトル3
タイトル4 

既存のデータ間に複数の空白行を挿入する

次のマクロを利用すると、上の図の結果が得られます。

 サブテスト（）
範囲としてAs j、範囲としてr
j = InputBox（ "削除する行数を入力"）
r = Range（ "A2"）に設定
行う
範囲（r.Offset（1、0）、r.Offset（j、0））EntireRow.Insert
r =セル（r.Row + j + 1、1）に設定
'MsgBox r.Address（この行の先頭にあるアポストロフィは、この行を操作不能にします）
r.Offset（1、0）= ""の場合終了
ループ
終了サブ