如何根据上方单元格的值在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. 单击 确定，空白行已插入。