Note: The other languages of the website are Google-translated. Back to English

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

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

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


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


例如,您要在第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

备注:在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

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


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (0)
还没有评分。 成为第一位评论!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点