跳至主要内容

如何在Excel中值变化时插入空白行?

Author: Xiaoyang Last Modified: 2025-05-07
sample data arrow right insert blank rows when value changes

假设你有一个数据区域,现在你想在值变化时在数据之间插入空白行,这样你就可以将一列中的连续相同值分隔开,如下图所示。在本文中,我将介绍一些技巧来帮助你解决这个问题。

使用分类汇总功能在值变化时插入空白行

使用强大功能在值变化时插入特定数量的空白行

使用辅助列在值变化时插入空白行

使用VBA代码在值变化时插入空白行


使用分类汇总功能在值变化时插入空白行

通过分类汇总功能,你可以按照以下步骤在值变化时在数据之间插入空白行:

1. 选择要使用的数据区域。

2. 点击 数据 > 分类汇总 打开 分类汇总 对话框,在 分类汇总 对话框中,请进行以下选项设置:

 specify the operations in the Subtotal dialog
1: 在 每次更改部分下选择要在其值变化时插入空白行的列名;
2: 从使用函数下拉列表中选择 计数
3: 勾选要插入小计的列名到添加小计至列表框中

3. 然后点击确定,不同产品之间的分类汇总行已插入,分级显示符号显示在表格的左侧,见截图:

the subtotal lines have been inserted between the different products

4. 然后点击分级显示符号顶部的数字2以仅显示分类汇总行。

click the number 2 to display the subtotal lines

5. 然后选择分类汇总范围的数据,并按Alt+;快捷键仅选择可见行,见截图:

press shortcut keys to select the visible rows

6. 仅选择可见行后按键盘上的删除键,所有分类汇总行已被移除。

7. 然后点击任意其他单元格,返回 数据 > 取消组合 > 清除分级显示以移除分级显示,见截图:

click Clear Outline to remove the Outlines

8. 分级显示符号立即被清除,你可以看到当值变化时已在数据间插入了空白行,见截图:

blank rows have been inserted between the data when value changes

9. 最后,你可以根据需要删除A列。


使用强大功能在值变化时插入特定数量的空白行

如果你对上述繁琐的方法感到厌烦,这里我要介绍一个有用的工具,Kutools for Excel标记列内内容变化可以帮助你在单元格值变化时快速轻松地插入分页符、空白行、底边框或填充颜色。

Kutools for Excel 提供了超过 300 种高级功能,简化复杂任务,提升创造力与效率。 通过集成 AI 能力,Kutools 能够精准自动执行任务,让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

提示:要应用此标记列内内容变化功能,首先,你应该下载Kutools for Excel,然后快速轻松地应用该功能。

安装Kutools for Excel后,请按以下步骤操作:

1. 点击 Kutools > 格式 > 标记列内内容变化,见截图:

click Distinguish differences feature of kutools

2. 在标记列内内容变化 对话框中,请进行以下操作:

  • 选择要使用的数据区域,然后选择要基于其插入空白行的关键列;
  • 然后从选项部分勾选空白行选项,并输入要插入的空白行数量。

set the operations in the dialog box

3. 然后点击确定按钮,如果单元格值发生变化,则特定数量的空白行已被插入到数据中,见截图:

original data arrow right the specific number of blank rows have been inserted into the data if cell value changes

点击下载Kutools for Excel并免费试用!


使用辅助列在值变化时插入空白行

使用辅助列,你可以先插入公式,然后应用查找和替换功能,最后在变化值之间插入空白行。请按以下步骤操作:

1. 在空白单元格C3中,请输入公式=A3=A2,在单元格D4中输入公式=A4=A3,见截图:

create two helper columns with formulas

2. 然后选择C3:D4,并拖动填充柄覆盖到要应用这些公式的范围,你会在单元格中得到,见截图:

drag and fill the formulas to other cells

3. 然后按Ctrl + F键打开查找和替换对话框,在弹出的对话框中,在 查找选项卡下的查找内容文本框中输入FALSE,并点击选项按钮展开此对话框,并从 查找范围下拉列表中选择,见截图:

specify the operations in the Find and Replace dialog

4. 点击查找全部按钮,然后按Ctrl + A选择所有查找结果,所有FALSE单元格一次被选中,见截图:

press Ctrl + A to select all the results of finding

6. 关闭查找和替换对话框,下一步,你可以通过点击开始 > 插入 > 插入工作表行来插入空白行,当基于A列的值变化时,空白行已被插入到数据中,见截图:

 click Insert Sheet Rows feature arrow right blank rows have been inserted into the data when value changes

7. 最后,你可以根据需要删除辅助列C和D。


使用VBA代码在值变化时插入空白行

如果你厌倦了使用上述方法,这里还有一个代码也可以帮助你一次性在变化值之间插入空白行。

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

2. 点击插入 > 模块,并在模块窗口中粘贴以下代码。

VBA代码:在值变化时插入空白行

Sub InsertRowsAtValueChange()
'Update by Extendoffice
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)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 然后按F5键运行此代码,会弹出一个提示框让你选择一列数据,当你基于其值变化时想要插入空白行,见截图:

vba code to select the data range

4. 然后点击确定,当基于A列的值变化时,空白行已被插入到数据之间。

最佳办公效率工具

🤖 Kutools AI 助手:基于智能执行生成代码创建自定义公式分析数据并生成图表调用 Kutools 函数等功能,彻底改变数据分析方式…
热门功能查找、高亮或标记重复项 | 删除空行 | 合并不丢失数据的列或单元格 | 四舍五入 ...
高级 LOOKUP多条件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 ....
高级下拉列表快速创建下拉列表 | 从属下拉列表 | 多选下拉列表 ....
列管理器添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域和列 ...
精选功能网格聚焦 | 设计视图 | 增强编辑栏 | 工作簿与工作表管理器 | 资源库(自动文本) | 日期提取 | 合并数据 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊筛选(筛选粗体/斜体/删除线...)...
排名前 15 的工具集12 种文本 工具添加文本删除特定字符等) | 50 多 种图表 类型甘特图等) | 40 多种实用 公式基于生日计算年龄等) | 19 种插入 工具插入二维码根据路径插入图片等) | 12 种转换 工具小写金额转大写汇率转换等) | 7 种合并与分割 工具高级合并行分割单元格等) | 还有更多...

使用 Kutools for Excel 提升您的 Excel 技能,体验前所未有的高效。 Kutools for Excel 提供超过 300 种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...


Office Tab 将标签式界面引入 Office,让您的工作更加轻松

  • 在 Word、Excel、PowerPoint 中启用标签式编辑和阅读
  • 在同一窗口的新标签页中打开和创建多个文档,而不是在新窗口中进行操作。
  • 将您的生产力提升 50%,每天为您减少数百次鼠标点击!