如何在Excel中根据单元格值自动插入行？

2024-07-09 02:46| 来源: 网络整理| 查看: 265

如何在Excel中根据单元格值自动插入行？作者：孙最后修改时间：2020-04-28 文档插入行基于值 1

假设您具有一定范围的数据，并且想要在Excel中自动在某个值之上或之下插入空白行，例如，自动插入零值以下的行，如下面的屏幕截图所示。在Excel中，没有直接的方法可以解决此任务，但是我可以为您介绍一个宏代码，以便您根据Excel中的某个值自动插入行。使用VBA根据单元格值在下面插入行

使用 Kutools for Excel 根据单元格值插入上面的行

使用VBA根据单元格值在下面插入行

要通过运行VBA根据单元格值插入行，请执行以下步骤：

1。按 Alt + F11键同时输入一个键 Microsoft Visual Basic应用程序窗口弹出。

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

Tips::

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

使用 Kutools for Excel 根据单元格值插入上面的行

如果您不熟悉VBA，可以尝试 Kutools for Excel's 选择特定的单元格实用程序，然后在上面插入行。

Kutools for Excel, 与超过 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 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

阅读更多免费下载... Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！ Excel 的屏幕截图（安装了 Office Tab）

阅读更多免费下载...

【本文地址】

公司简介

联系我们