Excelで各行の間にスペースをすばやく挿入するにはどうすればよいですか？

Author Sun Last modified 2025-08-26

Excelでは、右クリックメニューを使用してアクティブな行の上にある行を選択できますが、以下のスクリーンショットに示すように、各列に空白行を挿入する方法はご存知ですか？ここでは、この作業を迅速に解決するためのいくつかのコツを紹介します。
insert space between each row

ソート機能を使用して各行間に空白行を挿入する

Kutools for Excelを使用して各行/列間に空白行/列を挿入する

VBAコードを使用して各行間に空白行を挿入する

ソート機能を使用して各行間に空白行を挿入する

各行間に空白行を挿入するには、まず数字の系列を2回入力し、その後その数字をソートします。

1. 隣接する番号に、行数に一致する数字の系列を入力します。
fill a series of numbers in adjacent column

2. 系列番号をコピーし、最後の番号の次のセルに貼り付けます。
Copy and paste the series numbers in the cell following the last number

2. すべての系列番号を選択し、クリックします データ > 最小から最大へソート.
click Data > Sort Smallest to Largest

3. 表示される ソートの警告 ダイアログで、 選択範囲を拡張するオプション をチェックしたまま、クリックします ソート.
keep Expand the selection option checked

これで、各行間にスペースが挿入されました。後で系列番号の列を削除することができます。
the spaces have been inserted between each row

Kutools for Excelを使用して各行/列間に空白行/列を挿入する

各行または列間に空白行または列をすばやく簡単に挿入したい場合は、Kutools for Excelの「空白行と列の挿入」ユーティリティを使用すると、必要な行間隔や空白行の数を指定できます。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

Kutools for Excelをインストールしたら、以下のように操作してください：

1. 空白行または列を挿入したいデータ範囲を選択し、クリックします Kutools > 挿入 > 空白行と列の挿入.
click Insert Blank Rows & Columns feature of kutools

2. 空白行と列の挿入ダイアログで、必要に応じて 空白行 または 空白列 をチェックし、間隔と行.

3. 「OK」をクリックします。

各行間に空白行を挿入する	各列間に空白列を挿入する

ヒント: このユーティリティは元に戻す Ctrl + Z をサポートしています。

VBAコードを使用して各行間に空白行を挿入する

マクロコードに精通している場合、こちらのコードも役立つでしょう。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 挿入 > モジュールをクリックし、以下のコードをモジュールにコピーして貼り付けます。

VAB: 行間にスペースを挿入する

Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 0 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xWS = ActiveWorkbook.ActiveSheet
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Count > 0 Then
        xCR = xRg.Rows.Count
        xCC = xRg.Columns.Count
        xR = xRg.Row
        xC = xRg.Column
   Application.ScreenUpdating = False
    For xFC = 0 To xCC - 1
        For xFR = xCR To 1 Step -1
            xWS.Cells(xR + xFR, xC + xFC).Insert
        Next
    Next xFC
    Application.ScreenUpdating = True
    End If

End Sub

3. 実行するには F5 キーを押します。作業中のデータを選択するよう促すダイアログが表示されます。
vba code to select the data range

4. 「OK」をクリックします。 OKこれで、選択された行間にスペースが挿入されました。
the spaces have been inserted between selected rows

デモ: 特定の間隔で空白行または列を挿入する

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数