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

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

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

使用VBA根據單元格值在下面插入行

要通過運行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 鍵或 運行 按鈕，將彈出一個對話框，然後選擇包含零的列。 看截圖：

4。 點擊 OK。 然後將在零值以下插入空白行。

尖端:

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

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

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

安裝後 Kutools for Excel，請執行以下操作：

1.選擇要從中查找特定單元格的列表，然後單擊 庫工具 > 選擇 > 選擇特定的單元格。 看截圖：

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

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

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

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

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

相關文章：

• 在Excel中插入空白行