如何根据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. 单击 确定。然后空白行将被插入到零值下方。

提示：

1. 如果你想根据其他值插入行，可以在VBA代码中将 0 更改为任何你想要的值：If Rng.Value = "0" Then。

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，可以尝试使用 Kutools for Excel 的 选择指定单元格 功能，然后插入行。

安装 Kutools for Excel 后，请按以下步骤操作：

1. 选择你要查找特定单元格的列表，然后单击 Kutools > 选择 > 选择指定单元格。参见截图：

2. 在弹出的对话框中，勾选 整行 选项，然后转到选择 等于 来自 指定类型 列表，然后在右侧文本框中输入你想要查找的值。参见截图：

3. 单击 确定，弹出对话框提醒你所选行的数量，只需关闭它即可。

4. 将光标放在选定的一行上，右键单击并选择 插入 从上下文菜单中。参见截图：

现在，基于特定值的行已成功插入到上方。

根据单元格值在上方插入行

相关文章：

• 在Excel中插入空白行