如何在Excel中根據單元格值自動插入行？

假設您具有一定范圍的數據，并且想要在Excel中自動在某個值之上或之下插入空白行，例如，自動插入零值以下的行，如下面的屏幕截圖所示。 在Excel中，沒有直接的方法可以解決此任務，但是我可以為您介紹一個宏代碼，以便您根據Excel中的某個值自動插入行。

使用VBA根據單元格值在下面插入行根據單元格值在上方插入行 Kutools for Excel 使用VBA根據單元格值在下面插入行

要通過運行VBA根據單元格值插入行，請執行以下步驟：

1。 按 Alt + F11鍵 同時輸入一個鍵 Microsoft Visual Basic應用程序 窗口彈出。

2。 點擊 插頁 > 模塊，然后將以下VBA代碼粘貼到彈出窗口 模塊 窗口。

VBA：根據單元格值在下面插入行。

Sub BlankLine()Updateby20150203Dim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)Set WorkRng = WorkRng.Columns(1)xLastRow = WorkRng.Rows.CountApplication.ScreenUpdating = FalseFor xRowIndex = xLastRow To 1 Step - 1Set Rng = WorkRng.Range("A" & xRowIndex)If Rng.Value = "0" ThenRng.Offset(1, 0).EntireRow.Insert Shift: = xlDownEnd IfNextApplication.ScreenUpdating = TrueEnd SubCopy

3。 點擊 F5 鍵或 運行

按鈕，將彈出一個對話框，然后選擇包含零的列。 看截圖：

4。 點擊 OK

。 然后將在零值以下插入空白行。

Tips::

1.如果要基于其他值插入行，則可以更改 0 到您在VBA中想要的任何值： 如果Rng.Value =“ 0”，則.

2.如果要插入大于零或其他值的行，則可以使用下面的vba代碼。

VBA：在零值上方插入行：

Sub BlankLine()Updateby20150203Dim Rng As RangeDim WorkRng As RangeOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)Set WorkRng = WorkRng.Columns(1)xLastRow = WorkRng.Rows.CountApplication.ScreenUpdating = FalseFor xRowIndex = xLastRow To 1 Step - 1Set Rng = WorkRng.Range("A" & xRowIndex)If Rng.Value = "0" ThenRng.EntireRow.Insert Shift: = xlDownEnd IfNextApplication.ScreenUpdating = TrueEnd SubCopy 根據單元格值在上方插入行 Kutools for Excel

如果您不熟悉VBA，可以嘗試 Kutools for Excels 選擇特定的單元格 實用程序，然后在上面插入行。

Kutools for Excel, 與超過 300方便的功能，使您的工作更加輕松。免費全功能 30- 天

安裝后 Kutools for Excel，請執行以下操作：（ Kutools for Excel 現在！）

1.選擇要從中查找特定單元格的列表，然后單擊 Kutools > 選擇 > 選擇特定的單元格

。 看截圖：

2.在彈出的對話框中，選中 整行 選項，然后選擇 等于 止 特定類型

列表，然后在右側的文本框中輸入要查找的值。 看截圖：

3。 點擊 Ok，然后會彈出一個對話框，提醒您選中的行數，只需將其關閉即可。

4.將光標放在選定的一行上，然后右鍵單擊以選擇 插頁

從上下文菜單中。 看截圖：

現在，將基于特定值在上方插入行。

根據單元格值在上方插入行

Kutools for Excel: Excel 中必須具備的 300 多個函數， 30從這里相關文章：在Excel中插入空白行

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel