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

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

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

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

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

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

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

1. 隣接する番号に、行数に一致する数字の系列を入力します。

2. 系列番号をコピーし、最後の番号の次のセルに貼り付けます。

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

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

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

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

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

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

1. 空白行または列を挿入したいデータ範囲を選択し、クリックします 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 キーを押します。作業中のデータを選択するよう促すダイアログが表示されます。

4. 「OK」をクリックします。 OKこれで、選択された行間にスペースが挿入されました。

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