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

假设您有一些长公式，现在，您想要从公式中提取所有单元格引用，如下面的屏幕截图所示。 如何尽快从公式中提取单元格引用？

使用用户定义函数从公式中提取单元格引用

---

使用用户定义函数从公式中提取单元格引用

要从公式中提取单元格引用，下面的VBA代码可能会对您有所帮助。 请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。

VBA代码：从公式中提取单元格引用：

Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
    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

3. 粘贴代码后，保存代码并返回工作表，然后输入以下公式： = extractcellrefs（G2） (G2 是包含要提取单元格引用的公式的单元格）到要获取结果的单元格中，然后按 输入 键，所有单元格引用均已从公式中提取，请参见屏幕截图：