KutoolsforOffice — 一套方案,五大工具。事半功倍。

如何在 Excel 中始终在下方(而非上方)插入空白行?

作者Xiaoyang修改日期

众所周知,在工作表中插入空白行时,新行默认会出现在所选行或单元格的上方。但有时,您可能希望在所选单元格或行的下方插入空白行。在 Excel 中,该如何实现这一操作?

使用 VBA 代码始终在下方而非上方插入空白行


使用 VBA 代码始终在下方而非上方插入空白行

本文将为您介绍如何通过单击按钮,在所选单元格或行的下方快速插入空白行。请按以下步骤操作:

1. 按住 ALT + F11 键,即可打开 Microsoft Visual Basic for Applications 窗口。

2. 然后,单击插入> 模块,并将以下宏代码粘贴到模块窗口中。

VBA 代码:始终在下方而非上方插入空白行

Sub InsertRowDown()
'Updateby Extendoffice
Dim xRg As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xRg = ActiveCell.Offset(1, 0)
    xRg.EntireRow.Select
     Selection.Insert Shift:=xlDown
     Selection.ClearFormats
    Application.ScreenUpdating = True
End Sub

将 VBA 代码复制并粘贴到模块中

3. 然后,关闭并保存此代码窗口。接着,请单击插入> 形状> 矩形,参见下图:

单击“插入”>“形状”>“矩形”的截图

4. 然后,拖动光标绘制一个矩形按钮,并根据需要进行格式设置。参见下图:

绘制一个矩形按钮并设置其格式

5. 完成所需格式设置后,请右键单击该按钮,然后选择指定宏选项,参见下图:

从右键菜单中选择“指定宏”

6. 在指定宏对话框中,从宏名列表框中选择您刚刚插入的宏名称,如下图所示:

在“指定宏”对话框中选择宏名称

7. 然后,单击确定关闭对话框。现在,当您先单击任意单元格,再单击该按钮时,空白行将立即插入到所选单元格上方,如下方演示所示:



更多相关插入行文章:

  • 多次复制并插入行,或重复该行 X 次
  • 在日常工作中,您是否曾需要将某一行(或每一行)复制,并在工作表中当前数据行的下方多次插入?例如,我有一个单元格区域,希望将每一行复制后粘贴到下一行,并重复此操作 3 次,如下图所示。在 Excel 中,该如何高效完成这项任务?
  • 在 Excel 中数值变化时插入空白行
  • 假设您有一组数据,希望在数值发生变化的位置插入空白行,以分隔某一列中连续的相同值(如下图所示)。本文将为您介绍几种实用的解决技巧。
  • 在 Excel 中特定文本上方插入空白行
  • 处理工作表时,您是否曾想在某一列中特定文本的上方插入空白行?例如,A 列包含若干姓名,而您希望在“Mike”所在单元格的上方插入一个空白行(如左图所示)。Excel 并未提供直接实现此操作的功能,但本文将为您介绍几种高效技巧,轻松解决这一难题。

  • 超级编辑栏(轻松编辑多行文本和公式);阅读版式(轻松阅读和编辑大量单元格);粘贴到筛选范围……
  • 合并单元格/行/列并保留数据;分割单元格内容;合并重复行并求和/求平均值……防止重复项单元格;比较区域……
  • 选择重复或唯一行;选择空白行(所有单元格均为空);超级查找和模糊查找多个工作簿中的内容;随机选择……
  • 精准公式复制多个单元格而不更改公式引用;自动创建引用到多个工作表;插入项目符号、复选框等更多功能……
  • 收藏并快速插入公式、区域、图表和图片;加密单元格并设置密码;创建邮件列表并发送电子邮件……
  • 提取文本、添加文本、删除某位置字符、删除空格;创建并打印数据分页统计;在单元格内容与批注之间转换……
  • 超级筛选(保存并应用筛选方案到其他工作表);高级排序按月/周/日、频率等分组;特殊筛选按加粗、倾斜等格式……
  • 合并工作簿和工作表;汇总表格基于关键列;分割数据到多个工作表批量转换 xls、xlsx 和 PDF……
  • 数据透视表按周数、星期几等分组……显示未锁定、选区锁定并以不同颜色标识;高亮显示包含公式/名称的单元格……
kte tab 201905
  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑与阅读,大幅提升多文档操作效率!
  • 在同一个窗口的新标签页中打开并创建多个文档,而非在新窗口中操作。
  • 将您的工作效率提升 50%,每天减少数百次鼠标点击!
officetab bottom