如何基於Excel中的單元格值自動插入行？

假設您具有一定範圍的數據，並且要在Excel中自動插入高於或低於某個特定值的空白行，例如，自動插入零值以下的行，如下面的屏幕快照所示。在Excel中，沒有直接的方法可以解決此任務，但是我可以為您介紹一個宏代碼，以便您根據Excel中的某個值自動插入行。
使用VBA根據單元格值在下面插入行

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

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

1。按 Alt + F11鍵 同時輸入一個鍵 Microsoft Visual Basic for Applications 窗口彈出。

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

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

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3。點擊 F5 鍵或跑按鈕，將彈出一個對話框，然後選擇包含零的列。看截圖：
文檔插入行基於值 2

4。點擊 OK。然後將在零值以下插入空白行。
文檔插入行基於值 3

尖端:

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

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

VBA：在零值上方插入行：

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

文檔插入行基於值 4

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

Excel的Kutools, 與以上 300 方便的功能，使您的工作更加輕鬆。
免費下載免費全功能 30-天

安裝後 Kutools for Excel，請執行以下操作：（立即免費下載Kutools for Excel！）

1.選擇要從中查找特定單元格的列表，然後單擊 庫工具 > 選擇 > 選擇特定的單元格。看截圖：
doc基於值9插入行

2.在彈出的對話框中，選中整行選項，然後選擇等於 特定類型 列表，然後在右側的文本框中輸入要查找的值。看截圖：
doc基於值6插入行

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

4.將光標放在選定的一行上，然後右鍵單擊以選擇插入從上下文菜單中。看截圖：
doc基於值7插入行

現在，將基於特定值在上方插入行。
doc基於值8插入行

Kutools for Excel：Excel 中必須具備的 300 多個功能， 30從這裡免費試用

在Excel中插入空白行

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。