如何在Excel中将区域名称替换为单元格引用？

在Excel中使用命名区域时，您可能会发现它们对于提高可读性和公式管理非常有用。然而，在某些情况下，您可能希望删除区域名称并恢复实际的单元格引用，尤其是在共享文件、故障排除或标准化模板时。在本文中，我们将介绍几种不同的方法来将命名区域替换为其对应的单元格引用。

通过VBA代码将区域名称替换为单元格引用

通过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。

相关文章：

在Excel中将公式中的单元格引用更改为区域名称