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

MS Excel 高级Excel函数微软技术

数百万的人和组织使用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