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

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！