如何在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，已插入空白行。