Excelで上にあるセルの値に基づいて空白行を挿入するにはどうすればよいですか？

Excelでは、数値に基づいてセルの下に空白行を挿入する必要がある場合があります。これを手動で行うのは時間がかかる場合がありますが、簡単なVBAマクロを使用することで、このプロセスを自動化し、選択した範囲内の各セルの下に必要な数の空白行を迅速に挿入できます。以下に示すように。

セルの値に基づいて行を挿入

セルの値に基づいて行を挿入

セルの値に基づいて空白行を挿入したい場合は、マクロコードを使用できます。

1. 使用しているシートを有効にし、 Alt + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを開きます。

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

Sub Insert()
'UpdatebyExtendoffice20170926
    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 a range 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」をクリックすると、空白行が挿入されます。