Excelで固定間隔で特定の行数を挿入するにはどうすればよいですか？

Excelワークシートでは、挿入機能を使用して既存の行間に空白行を挿入できます。しかし、データ範囲が広く、3行ごとまたはn行ごとに2つの空白行を挿入する必要がある場合、この作業を迅速かつ便利に完了するにはどうすればよいでしょうか？

• VBAコードを使用して固定間隔で特定の数の空白行をデータ範囲に挿入する
• VBAコードを使用してセル値に基づいて特定の数の空白行をデータ範囲に挿入する
• 便利な機能を使用して固定間隔で特定の数の空白行をデータ範囲に挿入する
• VBAコードを使用して特定の数値に基づいて複数回行をコピーして挿入する
• 驚くべき機能を使用して特定の数値に基づいて複数回行をコピーして挿入する

VBAコードを使用して固定間隔で特定の数の空白行をデータ範囲に挿入する

次のVBAコードは、既存のデータ内でn行ごとに特定の行数を挿入するのに役立ちます。以下の手順を行ってください：

1. ExcelでALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

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

3. このコードを貼り付けた後、F5キーを押してこのコードを実行すると、空白行を挿入したいデータ範囲を選択するように促すダイアログボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、別のプロンプトボックスが表示され、行間隔の数を入力します。スクリーンショットをご覧ください：

5. 「OK」ボタンをクリックして続行すると、次のプロンプトボックスが表示されるので、挿入したい空白行の数を入力してください。スクリーンショットをご覧ください：

6. そして「 OK」をクリックすると、既存のデータに定期的な間隔で空白行が挿入されます。スクリーンショットをご覧ください：

VBAコードを使用してセル値に基づいて特定の数の空白行をデータ範囲に挿入する

場合によっては、一連のセル値に基づいて空白行を挿入する必要があります。そのような場合、以下のVBAコードが役立つでしょう。次のように行ってください：

1. ExcelでALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: 数値リストに基づいて特定の数の空白行を挿入する：

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. このコードを貼り付けた後、F5キーを押してこのコードを実行すると、ポップアップしたダイアログボックスで、空白行を挿入する基準となる数値リストを選択します。スクリーンショットをご覧ください：

4. 次に、「OK」をクリックすると、次のスクリーンショットに示す結果が得られます：

便利な機能を使用して固定間隔で特定の数の空白行をデータ範囲に挿入する

上記のVBAコードに慣れていない場合でも、Kutools for Excelがお手伝いできます。その「空白行と列の挿入」機能を使用すると、特定の行や列を既存のデータに固定間隔で簡単に挿入できます。

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

1. 間隔を空けて空白行を挿入したいデータ範囲を選択します。

2. 「Kutools」>「挿入」>「空白行と列の挿入」をクリックします。スクリーンショットをご覧ください：

3. 「空白行と列の挿入」ダイアログボックスで、「挿入タイプ」から「空白行」オプションを選択し、使用したい間隔と空白行の数を指定します。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、選択した範囲に特定の間隔で空白行が挿入されます。スクリーンショットをご覧ください：

今すぐKutools for Excelをダウンロードして無料でお試しください！

VBAコードを使用して特定の数値に基づいて複数回行をコピーして挿入する

例えば、データ範囲があり、各列をコピーして、次の行に数値リストに基づいて複数回貼り付けたいとします。以下のスクリーンショットに示すように、Excelワークシートでこのタスクをどのように解決できますか？

この作業に対処するために、有用なコードをご紹介します。以下の手順に従ってください：

1. ExcelでALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: 特定の数値に基づいて複数回行をコピーして挿入する：

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. このコードを貼り付けた後、F5キーを押してこのコードを実行すると、ポップアップしたダイアログボックスで、データ行をコピーして挿入する基準となる数値リストを選択します。スクリーンショットをご覧ください：

4. 次に、「OK」ボタンをクリックすると、元の各行の下に指定された数の行がコピーされて貼り付けられます。スクリーンショットをご覧ください：

驚くべき機能を使用して特定の数値に基づいて複数回行をコピーして挿入する

Kutools for Excelを持っている場合、セル値に基づいて行や列を複製する機能を使用すると、数値リストに基づいて行や列を簡単に挿入できます。

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

1. 「Kutools」>「挿入」>「セル値に基づいて行や列を複製」をクリックします。スクリーンショットをご覧ください：

2. 「行や列をコピーして挿入」ダイアログボックスで、「タイプ」セクションで「行をコピーして挿入」オプションを選択し、複製したいデータ範囲を選択し、行をコピーする基準となる値のリストを指定します。スクリーンショットをご覧ください：

4. 「OK」または「適用」ボタンをクリックすると、必要な結果が得られます：

今すぐKutools for Excelをダウンロードして無料でお試しください！

関連記事：