Excel では、空白行を挿入するのはほとんどのユーザーにとって簡単な作業です。 ただし、以下に示すスクリーンショットのように、テーブル内の既存の各行の間に空白行を挿入する必要がある場合があります。 これにより、可読性が向上し、データのナビゲートが容易になります。 この記事では、Excel で XNUMX 行おきまたは n 行ごとに空白行を挿入するための簡単で便利なテクニックについて説明します。

Excel で XNUMX 行おきまたは n 行おきに空白行を挿入する

• 挿入機能を使うと
• ヘルパー列と並べ替え機能を使用
• Kutools for Excelを数回クリックするだけで
• VBAコードあり

ビデオ: Excel で XNUMX 行おきに空白行を挿入する

挿入機能を使用して空白行を XNUMX 行おきに挿入します

データの量が少ない場合は、Ctrl キーを押して各行を手動で選択し、挿入機能を使用して既存の各行の前に空白行を挿入できます。 その方法は次のとおりです。

ステップ 1: Ctrl キーを押しながら行を XNUMX つずつ手動で選択します

1. 行番号をクリックして最初の行を選択します。
2. 次に、 Ctrlキー キーボードの キーを押して、選択する行番号を XNUMX つずつクリックします。
   

ステップ 2: 右クリック メニューから [挿入] オプションを選択します。

空白行を挿入するすべての行を選択したら、選択した行番号の XNUMX つを右クリックし、 インセット コンテキストメニューから、スクリーンショットを参照してください。

結果：

これで、選択した各行の前に空の行が挿入されます。 スクリーンショットを参照してください:

ヘルパー列と並べ替え機能を使用して、空白行を XNUMX 行おきまたは n 行おきに挿入します

上記の方法は、ワークシート内の小さなデータに適しています。 ただし、大量のデータを扱う場合は、ヘルパー列を作成し、並べ替え機能を適用して Excel の XNUMX 行おきまたは n 行おきに空白行を挿入することをお勧めします。 これを実現するには、次の手順に従います。

ステップ 1：ヘルパー列を作成する

1. データの隣にヘルパー列を作成します。 たとえば、データ範囲 A1:D10 がある場合、「」というテキストを入力します。ヘルパー列」 セル E1 のスクリーンショットを参照してください。
   
2. 次に、セル E1 と E2 に 2 と 3 を別々に入力します。
3. セル E2 と E3 を選択し、塗りつぶしハンドルを最後のデータ セルまでドラッグすると、以下のスクリーンショットのように、増加する数値のリストが塗りつぶされます。
   
4. ここで、シーケンス番号をコピーし、最後のセル E10 のすぐ下に貼り付けます。 スクリーンショットを参照してください:
   

ステップ 2: 並べ替え機能を適用して、ヘルパー列ごとにデータを並べ替えます。

1. ここで、「ヘルパー」列のデータを選択し、「 Rescale データ > 並び替え、スクリーンショットを参照してください：
   
2. 飛び出した中に ソート警告 ダイアログで、選択してください 選択範囲を拡大 オプションをクリックし、次にクリックします。 並び替え ボタン、スクリーンショットを参照してください：
   
3. 以下では 並び替え ダイアログボックスで ヘルパー列 並べ替え ドロップダウン リストをキー列として選択し、他のオプションは変更しないままにします。 次に、クリックします OK ダイアログを閉じます。 スクリーンショットを参照してください：
   

結果：

これで、データはヘルパー列の値に基づいて並べ替えられ、XNUMX 行おきに空白行が挿入されます。

数回クリックするだけで、空白行を XNUMX 行おきまたは n 行おきに挿入します

場合によっては、XNUMX つ以上のデータ行ごとに XNUMX つ以上の空白行を挿入するなど、データ範囲内に一定の間隔で特定の数の空白行を挿入する必要がある場合、前の方法は複雑で理解しにくい場合があります。 この仕事を迅速かつ簡単に解決するには、 Kutools for Excelさん 空白の行と列を挿入する この機能を使用すると、数回クリックするだけでこのジョブを処理できます。

ダウンロードしてインストールした後 Kutools for Excel、クリック クツール > インセット > 空白の行と列を挿入する を開く 空白の行と列を挿入する ダイアログボックス。

1. 空白行を挿入するデータ範囲を選択します。
2. 選択する 空白の行 挿入タイプ のセクションから無料でダウンロードできます。
3. 次に、数値を の間隔 • 行 必要に応じてテキストボックスを追加します。 (ここでは、XNUMX 行の後に空白行を XNUMX 行挿入します。 2 • 1 に の間隔 • 行 箱は別になります。）
4. 最後に、 OK ダイアログを閉じます。
   

結果：

これで、XNUMX 行ごとに XNUMX つの空白行がデータに挿入されます。スクリーンショットを参照してください。

VBA コードを使用して XNUMX 行おきまたは n 行おきに空白行を挿入します

VBA コードに興味がある場合は、ここで、データに一定の間隔で特定の数の空白行を挿入するためのコードを提供します。 次の手順に従ってください。

ステップ 1：VBA モジュール エディターを開き、コードをコピーします

1. 押したまま Alt + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。
2. クリック インセット > モジュール、次のコードをに貼り付けます モジュール 窓。
   VBA コード: 一定の間隔で特定の数の空白行をデータに挿入します。

   Sub InsertRowsAtIntervals()
   'Updateby Extendoffice
   Dim Rng As Range
   Dim xInterval As Integer
   Dim xRows As Integer
   Dim xRowsCount As Integer
   Dim xNum1 As Integer
   Dim xNum2 As Integer
   Dim WorkRng As Range
   Dim xWs As Worksheet
   xTitleId = "KutoolsforExcel"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   xRowsCount = WorkRng.Rows.Count
   xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
   xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
   xNum1 = WorkRng.Row + xInterval
   xNum2 = xRows + xInterval
   Set xWs = WorkRng.Parent
   For i = 1 To Int(xRowsCount / xInterval)
       xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
       Application.Selection.EntireRow.Insert
       xNum1 = xNum1 + xNum2
   Next
   End Sub

ステップ 2: コードを実行して結果を取得する

1. このコードを貼り付けたら、を押してください F5 キーを押してこのコードを実行します。 プロンプト ボックスで、空白行を挿入するデータ範囲を選択します。 次に、クリックします OK、スクリーンショットを参照してください:
   
2. 別のプロンプト ボックスが表示されます。行間隔の数を入力してください。 そして、クリックします OK、スクリーンショットを参照してください：
   
3. 次のプロンプト ボックスに、挿入する空白行の数を入力してください。 次に、クリックします OK、スクリーンショットを参照してください：
   

結果：

これで、指定した一定の間隔で特定の数の空白行が既存のデータに挿入されます。スクリーンショットを参照してください。

これは、データ範囲に1行おきまたはn行おきに挿入する方法です。Excelのヒントやコツをもっと知りたい場合は、 当社のウェブサイトでは何千ものチュートリアルを提供しています。 読んでいただきありがとうございます。今後さらに役立つ情報を提供できることを楽しみにしています。

関連記事：