Excelで空白/空の行をすばやく挿入するにはどうすればよいですか？

私たちのほとんどは、既存の各行の間に空白行を挿入する必要があるというExcelの問題に直面する可能性があり、私たち全員が手動で空白行を挿入する方法を知っています。 ただし、各行を個別に挿入する場合、何百もの空白行を挿入するのは面倒な作業になります。 この問題を解決するのに役立ついくつかの簡単なトリックを次に示します。

ソート機能で空白行を挿入する
Kutools for Excelを使用して、特定の数の空白行をすばやく挿入します
VBAコードで代替の空白行を挿入します

ソート機能で空白行を挿入する

この方法は、既存の行の間に空白行を挿入する方が簡単ですが、回り道です。 次のように実行できます。

1.データの隣に空白の列が必要です。 たとえば、A1：E9で構成されるワークシートがある場合、列Fを使用できます。

2.セルF1に数値1を入力し、セルF2に2を入力します。

3.番号1と番号2を選択し、入力ハンドルをダブルクリックすると、Excelは列Fのセルを自動入力します。

4.次に、この新しい列F（F1：F9）をコピーし、セルF10を選択して、F1：F9から自動入力番号を貼り付けます。 スクリーンショットを参照してください：

5.次に、をクリックします 且つ > 並び替え、と ソート警告 ダイアログボックスが表示されますので、 選択範囲を拡大 オプションをクリックして 並び替え…スクリーンショットを参照してください：

6.そして 並び替え ダイアログボックスが表示されたら、番号を選択します 1 並べ替え ドロップダウンリストをクリックしてから、 OK ボタン。 スクリーンショットを参照してください：

次に、新しい空白行が既存の行に挿入されています。 スクリーンショットを参照してください：

Note：各行の間にXNUMXつまたはXNUMXつの空白行を挿入する場合は、新しい自動入力列をXNUMXつまたはXNUMX回コピーして、新しい行を追加できます。

Kutools for Excelを使用して、特定の数の空白行をすばやく挿入します

上記のXNUMXつの方法は、各行の間に空白行を挿入することを示しています。n行ごとに空白行または複数の行を挿入するにはどうすればよいですか。 ここで私はお勧めします 空白の行と列を挿入する の有用性 Kutools for Excel。 この機能は、特定の範囲にn行ごとに特定の数の空白行をすばやく挿入するのに役立ちます。 次のようにしてください。

1.空白行を挿入する範囲を選択し、をクリックします クツール > インセット > 空白の行と列を挿入する。 スクリーンショットを参照してください：

2。 の中に 空白の行と列を挿入する ダイアログボックスで、 空白行 インサートタイプ セクションで、空白行を挿入する間隔行の数と挿入する行の数を指定して、[ OK ボタン。 スクリーンショットを参照してください：

>

次に、XNUMX行ごとに特定の空白行が挿入されていることがわかります。 スクリーンショットを参照してください：

Note：の番号 の間隔 • 行 ニーズに合わせて調整できます。 たとえば、XNUMX、XNUMX、XNUMX…行ごとにXNUMX、XNUMX、XNUMX…空白行を挿入できます。

VBAコードで代替の空白行を挿入します

上記の方法が少し複雑な場合は、次のVBAコードを使用して解決できます。

1. Alt + F11キーを押して、 アプリケーション用のMicrosoftVisual Basic ウィンドウをクリックし、 インセット > モジュール 次のコードをに入力します モジュール:

VBAコード：Excelに空白行を挿入する

Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

2。 次に、をクリックします ボタンを押すか、F5キーを押してコードを実行します。 ポップアップ表示されるKutoosfor Excelダイアログボックスで、空白行を挿入する範囲を選択し、[OK]ボタンをクリックしてください。 スクリーンショットを参照してください：

次に、XNUMX行ごとに新しい空白行が挿入されます。 スクリーンショットを参照してください：

関連記事

• XNUMX列おきに空白の列をすばやく挿入する
• 複数の空白の行または列を一度に挿入します