如何在Excel中根据上述单元格值插入空白行？

如何在Excel中根据上述单元格值插入空白行？

在Excel中，插入空白行是我们日常工作中最常用的功能之一。 但是，有什么方法可以根据上面的单元格值快速插入空白行，如下面的屏幕截图所示？ 现在，本文讨论基于Excel中上述单元格值快速插入空白行的方法。

根据上面的值插入行

根据上面的值插入行

如果要根据上面的数字插入空白行，则可以使用宏代码。

1.启用您使用的工作表，然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到脚本中。

VBA：根据上面的单元格插入空白代码

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("选择要使用的范围（单列):", "KuTools For Excel", xAddress, , , , , 8) 如果 xRg 为空则退出子应用程序。ScreenUpdating = False xLastRow = xRg(1).End(xlDown).Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count设置 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，已插入空白行。