如何在 Excel 中将区域名称替换为单元格引用?
在 Excel 中使用命名区域时,您可能会发现它们对于提高可读性和公式管理非常有用。然而,在某些情况下,您可能希望删除区域名称并恢复实际的单元格引用,特别是在共享文件、排查问题或标准化模板时。本文将介绍在 Excel 中将命名区域替换为其对应单元格引用的不同方法。
通过 Kutools for Excel 快速轻松地将区域名称替换为单元格引用
例如,在此工作表中,我将把 A2:A6 命名为 saleprice,并将 B2 命名为 discount,然后在公式中同时使用这两个区域名称来计算新价格。请参见截图:
按照快速技巧操作后,区域名称将被替换为单元格引用,如下所示:
通过 VBA 代码将区域名称替换为单元格引用
使用 VBA 将公式中的区域名称替换为单元格引用,您可以按以下步骤完成:
1. 选择包含要将其名称替换为单元格引用的公式的区域。
2. 按 Alt + F11 打开新的 Microsoft Visual Basic for Applications 窗口,然后点击 插入 > 模块,并复制粘贴以下代码到模块中:
VBA 代码:用绝对引用替换区域名称
Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End Sub
VBA 代码:用相对引用替换区域名称
Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub
3. 然后按 F5 键运行代码,弹出一个对话框用于选择要替换的区域。请参见截图:
4. 然后点击 确定,所有选定公式中的区域名称都已替换。
通过 Kutools for Excel 快速轻松地将区域名称替换为单元格引用
虽然手动或通过 VBA 进行此操作可能耗时且容易出错,但 Kutools for Excel 提供了一键解决方案以简化整个过程。如果您有 Kutools for Excel,其 转换名称为引用区域 工具将帮助您快速轻松地将区域名称替换为单元格引用。
1. 请通过点击 Kutools > 名称工具 > 转换名称为引用区域 来应用此工具。
2. 弹出一个对话框,点击 区域 标签,然后从 基于区域 中选择要替换为单元格引用的区域。然后,点击 替换 按钮。请参见截图:
3. 另一个提示框将显示修改的公式数量和未更改的公式数量,点击 确定,然后所选区域中的区域名称将被替换为单元格引用。
🔚 结论
无论您处理的是几个公式还是整个工作簿,将命名区域替换为实际的单元格引用是提高透明度、兼容性和协作便利性的绝佳方法。
- 对于高级用户,VBA 提供了灵活且可编程的解决方案以自动化替换过程。
- 对于其他人,Kutools for Excel 提供了最快且最用户友好的方式,只需点击几下即可完成任务——无需编码或编辑公式。
通过选择最适合您的工作流程的方法,您可以高效地清理公式并确保电子表格保持易于理解和维护。如果您有兴趣探索更多 Excel 技巧和窍门,我们的网站提供了数千个教程,帮助您掌握 Excel。
相关文章:
最佳Office办公效率工具
🤖 | 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%的工作效率,每天为您减少数百次鼠标点击!
所有Kutools加载项,一键安装
Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件,以及Office Tab Pro,非常适合跨Office应用团队使用。





- 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
- 单一安装包、单一授权——数分钟即可完成设置(支持MSI)
- 协同更高效——提升Office应用间的整体工作效率
- 30天全功能试用——无需注册,无需信用卡
- 超高性价比——比单独购买更实惠