如何在 Excel 中插入或删除行时，始终获取上方单元格的值？
在 Excel 中，引用正上方单元格的值是创建累计总额、进行月度对比，或在工作表结构频繁变动时保持数据一致性的常见需求。通常，您可以使用类似 =D5 的简单公式来引用上方单元格，但这种方法存在局限性：当插入或删除行时，公式可能无法自动更新以引用新的“上方”单元格。如下图所示，在上方插入新行可能会中断数据连续性，或导致公式仍指向原始单元格，而非自动调整至新位置。
为解决此问题并确保公式始终从紧邻上方的单元格获取值（即使在插入或删除行之后），您可以采用多种方法。每种方法各有优劣，具体取决于工作表的复杂度、是否需要自动更新或手动输入公式，以及您是否愿意使用 VBA/宏。
目录：
在插入或删除行时，始终从上方单元格获取值（含公式）
若要以无需宏或复杂设置的简便方式解决此问题，您可以使用一个能动态引用上方单元格的公式——无论行如何变动，它都能稳定运行。该公式结合 Excel 的 INDIRECT 和 ADDRESS 函数，确保引用始终“追踪”上方单元格，即使因插入或删除行导致位置变化也毫不受影响。因此，此方法特别适用于频繁调整行结构的工作表（例如在列表顶部或中间新增数据），助您轻松应对动态数据管理！
直接在需要始终获取上方值的单元格中输入以下公式（例如，若要在 B6 中引用 B5）：
=INDIRECT(ADDRESS(ROW()-1,COLUMN()))输入公式后，按下 Enter 键，当前单元格将立即显示其正上方单元格的值，如下所示：
现在，只要在公式所在单元格上方任意位置插入新行，公式便会自动重新计算，并始终引用最新上方单元格的值。无论您插入还是删除行，公式都能实时保持最新状态。请参考下图：
参数说明与使用技巧：
- 此公式将提取当前单元格正上方单元格的值——因此，在 B6 中使用该公式时，无论在其上方插入还是删除行，始终都能准确反映 B5 的值。
- 如果在数据的第一行（例如 A1）中使用此公式，它可能会尝试从不存在的行中提取数据，从而返回
#REF!错误。您可通过添加错误处理来避免此问题，例如使用=IF(ROW()=1,"",INDIRECT(ADDRESS(ROW()-1,COLUMN())))，让第一行显示为空白。 - 请注意，INDIRECT 是一个易失性函数，在超大型工作表中过度使用可能会拖慢计算速度。
- 当您希望无论工作表结构如何变化，都能始终与行位置保持严格关联时，使用此公式效果极佳。
故障排除与总结建议：
如果在插入或删除行后公式未按预期更新，请再次确认公式已正确输入到目标单元格中。同时，请确保未使用绝对引用（如 $A$1），因为此类引用是静态的，不会随行列变动而调整。若在第一行遇到 #REF!错误，建议采用前文提到的条件公式加以规避。如需实现高级自动化功能，或希望复制数值而非仅创建引用，请参阅下方基于 VBA 事件驱动宏的动态代码解决方案。
使用 VBA 事件驱动宏自动从上方单元格更新单元格值（始终保持动态）
如果您需要一种解决方案，能在插入或删除行时自动更新单元格值以匹配上方单元格，且无需复制公式即可实现此行为，那么采用事件驱动的 VBA 宏将非常高效。该方法适用于熟悉宏启用操作的用户，可实现动态响应：每当您选中特定单元格或区域，或修改某个值时，宏会立即把目标单元格设为等于其上方单元格的值，从而确保无论工作表如何变动，数据输入始终保持一致。在需要为每一新行设定固定格式或默认值的模板中，这一功能尤为实用。
以下是使用 Worksheet_Change 事件进行设置的方法：
1. 右键单击需要此功能的工作表标签，然后选择查看代码，即可打开 Microsoft Visual Basic for Applications 编辑器并自动定位到对应的工作表模块。
2. 将以下 VBA 代码复制并粘贴到工作表模块窗口中：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WatchRange As Range
On Error Resume Next
' Set the range you want to monitor (for example, B2:B100)
Set WatchRange = Intersect(Target, Me.Range("B2:B100"))
If Not WatchRange Is Nothing Then
Application.EnableEvents = False
Dim cell As Range
For Each cell In WatchRange
' Avoid the first row, or adjust as needed
If cell.Row > 1 Then
cell.Value = Me.Cells(cell.Row - 1, cell.Column).Value
End If
Next cell
Application.EnableEvents = True
End If
End Sub参数说明：请将 "B2:B100" 替换为 Me.Range("B2:B100") 中实际需要应用此行为的单元格范围（您也可设为整列，例如）"B:B"，但缩小范围有助于提升性能并避免意外覆盖）。
3. 关闭 VBA 编辑器。此后，只要在您设定的限定区域内更改、插入单元格或更新工作表，Excel 都会自动更新这些单元格，使其显示正上方单元格的值。例如，在第 5 行插入一行后，B 列中从该位置起所有受监控的单元格将自动获取其新位置正上方单元格的值。
- 请注意：此代码将覆盖监控范围内的所有手动输入值。如需包含公式单元格或保留原始输入内容，请谨慎使用。
- 若希望日后在工作簿中继续使用此 VBA 宏，请务必将文件另存为启用宏的工作簿（.xlsm）。
- 事件代码仅在粘贴了宏的工作表模块中生效（除非在每个工作表模块中都添加该代码，否则无法在所有工作表中生效）。
- 如果您希望在选择单元格时触发更新（而非在更改值时），可使用 Worksheet_SelectionChange 事件，并采用类似的逻辑。
故障排除与总结建议：
如果复制 VBA 脚本后似乎未生效，请确保工作簿中已启用宏，并确认代码已粘贴到正确的工作表模块中（而非标准模块）。如果出现错误或 Excel 卡死，请再次检查是否在自动更改单元格前将 Application.EnableEvents 设为 False，并在更改后重置为 True，以避免递归循环。如需其他高级行为或更精细的控制，请根据您的数据结构考虑自定义脚本。
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱