如何在Excel中插入或删除部分行？

网友投稿 192 2024-01-03

如何在Excel中插入或删除部分行？

从Excel中的工作表中插入或删除整行很容易。但是，如何只插入或删除工作表中的部分行呢？本文将为您提供帮助。

使用插入/删除单元格功能插入或删除部分行

使用VBA代码插入或删除部分行 使用插入/删除单元格功能插入或删除部分行

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

例如，您要在第5行中插入或删除包含三个单元格的部分行，请执行以下操作。

插入部分行

1.在第5行中选择三个单元格（所选单元格应等于插入的单元格），然后单击插页 > 插入单元格 下首页标签。看截图：

2.在插页对话框中选择 向右移动单元格 or 下移单元格选项，然后单击 OK 按钮。

然后插入具有三个单元格的部分行，如下图所示。

删除部分行

1.选择要删除的部分行后，单击删除> 删除单元格 下首页标签。

2.在删除对话框中选择 左移单元格 or 向上移动单元格 根据需要，然后单击 OK 按钮。看截图：

然后删除所选的部分行。

使用VBA代码插入或删除部分行

您还可以应用以下VBA代码在Excel中插入或删除部分行。

1.在特定行中选择要插入部分行的任何单元格，然后按其他 + F11 打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将以下VBA代码复制并粘贴到代码窗口。

VBA代码：在Excel中插入部分行

Sub InsertRow() Dim I As Long On Error Resume Next LInput: I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1) If I < 1 Then MsgBox "Error, please retype", vbInformation, "Kutools for Excel" GoTo LInput End If Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown End Sub

Copy

备注：在VBA代码中，数字1表示将从第一列插入部分行，数字3表示将在列之间插入三个单元格。您可以根据需要进行更改。

3。按 F5 键来运行代码，然后 Kutools for Excel 弹出对话框，请输入所需的必要行数，然后单击 OK 按钮。

如果您在框中输入3，请点击 OK 按钮，将在工作表的指定位置插入具有三列的三个部分行。

要删除部分行，可以运行下面的VBA代码。

VBA代码：在Excel中删除部分行

Sub DelActiveCell_Row() Dim I As Long On Error Resume Next LInput: I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1) If I < 1 Then MsgBox " Error, please retype", vbInformation, "Kutools for Excel" GoTo LInput End If Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp End Sub

Copy

运行代码后，还有一个 Kutools for Excel 弹出对话框，提醒您要删除的部分行，请输入数字，然后单击 OK 按钮。然后立即删除指定的部分行。

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！