如何在 Excel 中提取公式中的单元格引用

ms exceladvanced excel functionmicrosoft technologies更新于 2024/9/30 9:16:17

数百万个人和组织使用 Excel(一款功能强大的电子表格程序)来组织和分析数据。Excel 使用公式执行计算的能力是其多功能性的主要特征之一。Excel 公式允许您处理数据、进行各种数学运算以及在单元格之间建立动态关系。

在处理复杂公式或海量数据集时，了解公式中使用的精确单元格引用至关重要。通过从公式中删除单元格引用，您可以更好地理解数据在计算中的使用和引用方式。通过确定所涉及的单元格，您可以更有效地管理依赖关系、排查错误并对电子表格进行更改。

本教程将指导您完成从 Excel 公式中删除单元格引用的过程。本课将为您提供详细的说明和实际示例，以便您无论经验水平如何都能掌握这项重要技能。

在 Excel 中从公式中提取单元格引用

在这里，我们将首先使用 VBA 应用程序创建一个用户定义的公式，然后使用它来完成任务。让我们通过一个简单的过程来学习如何从 Excel 公式中提取单元格引用。

步骤 1

假设有一个包含公式单元格的 Excel 工作表。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

Function ExtractCellRefs(Rg As Range) As String
    Dim xRetList As Object
    Dim xRegEx As Object
    Dim I As Long
    Dim xRet As String
    Application.Volatile
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
    End With
    Set xRetList = xRegEx.Execute(Rg.Formula)
    If xRetList.Count > 0 Then
        For I = 0 To xRetList.Count - 1
            xRet = xRet & xRetList.Item(I) & ", "
        Next
        ExtractCellRefs = Left(xRet, Len(xRet) - 2)
    Else
        ExtractCellRefs = "No Matches"
    End If
End Function