如何通过DirectDependents判断Excel单元格是否被其他工作表引用？

问题背景 #

Excel原生会为被其他工作表公式引用的单元格显示引用图标，但使用VBA的Range.DirectDependents或Range.Dependents属性时，常因跨工作表引用的识别限制报错；遍历工作簿所有公式的方法效率极低，而我们仅需判断单元格是否被引用，无需知晓具体引用位置。

高效解决方案：利用Excel4宏函数 #

Excel4宏函数可以绕过VBA对象模型的限制，更稳定地检测跨工作表的引用关系，且无需遍历所有公式。以下是VBA代码实现：

Function IsCellReferenced(ByVal targetCell As Range) As Boolean
    On Error Resume Next
    ' 使用Excel4宏函数GET.DEPENDENTS检测是否存在从属单元格
    Dim dependents As Range
    Set dependents = targetCell.Application.ExecuteExcel4Macro("GET.DEPENDENTS(" & targetCell.Address(External:=True) & ")")
    On Error GoTo 0
    
    ' 若存在从属单元格（无论是否跨表），返回True
    IsCellReferenced = Not dependents Is Nothing
End Function

代码说明 #

• GET.DEPENDENTS是Excel底层的宏函数，能直接获取单元格的所有从属引用，包括跨工作表的情况，比VBA原生的Dependents属性更稳定
• 通过错误捕获处理无引用的情况，避免运行时异常
• 仅返回布尔值，精准满足"只判断是否被引用"的需求，效率远高于遍历所有公式

进阶方案：仅检测跨工作表引用 #

如果需要排除同工作表内的引用，只判断是否被其他工作表的公式引用，可以在上述基础上增加逻辑：

Function IsCellCrossSheetReferenced(ByVal targetCell As Range) As Boolean
    On Error Resume Next
    Dim dependents As Range
    Set dependents = targetCell.Application.ExecuteExcel4Macro("GET.DEPENDENTS(" & targetCell.Address(External:=True) & ")")
    On Error GoTo 0
    
    If dependents Is Nothing Then
        IsCellCrossSheetReferenced = False
        Exit Function
    End If
    
    ' 遍历所有工作表，检查从属单元格是否分布在其他表
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> targetCell.Parent.Name Then
            On Error Resume Next
            Dim intersectRange As Range
            Set intersectRange = Intersect(dependents, ws.Cells)
            On Error GoTo 0
            If Not intersectRange Is Nothing Then
                IsCellCrossSheetReferenced = True
                Exit Function
            End If
        End If
    Next ws
    
    IsCellCrossSheetReferenced = False
End Function

注意事项 #

• 需确保工作簿启用宏（Excel4宏函数需要宏权限支持）
• 对于受保护的工作表，需先解除保护才能正确检测引用关系
• 该方法在大型工作簿中的效率优势明显，远优于全公式遍历

内容的提问来源于stack exchange，提问作者MyExcelDeveloper.com