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

网友投稿 238 2023-12-26

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

要从公式中提取单元格引用，下面的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

Copy

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！