如何检测Excel中的Macro是否被其他Macro或工作表调用？

嘿，碰到这种宏堆得满天飞，却分不清哪些在干活哪些是躺平的情况，确实挺闹心的。我给你整理了几个实用的办法，帮你快速摸清这些宏的使用状况：

这是最高效的方式——直接写一段VBA代码，自动遍历整个工作簿的所有模块，找出每个宏的调用痕迹，还能把结果整理到新工作表里。

步骤如下：

1. 按下 Alt+F11 打开VBA编辑器
2. 在左侧「项目资源管理器」里右键你的工作簿，选择「插入」→「模块」
3. 将下面的代码粘贴到模块中：

Sub FindMacroReferences()
    Dim vbComp As VBComponent
    Dim codeMod As CodeModule
    Dim procName As String
    Dim startLine As Long, endLine As Long
    Dim i As Long, j As Long
    Dim found As Boolean
    
    ' 创建新工作表存放检测结果
    On Error Resume Next
    Sheets("MacroReferences").Delete
    On Error GoTo 0
    Sheets.Add.Name = "MacroReferences"
    With Sheets("MacroReferences")
        .Range("A1") = "宏名称"
        .Range("B1") = "所在模块"
        .Range("C1") = "被调用位置"
        .Range("A1:C1").Font.Bold = True
    End With
    
    ' 遍历所有VBA模块
    For Each vbComp In ThisWorkbook.VBProject.VBComponents
        Set codeMod = vbComp.CodeModule
        ' 逐个提取模块里的过程（宏）
        i = 1
        Do While i <= codeMod.CountOfLines
            procName = codeMod.ProcOfLine(i, vbext_pk_Proc)
            If procName <> "" Then
                startLine = codeMod.ProcStartLine(procName, vbext_pk_Proc)
                endLine = startLine + codeMod.ProcCountLines(procName, vbext_pk_Proc) - 1
                ' 在整个项目中搜索该宏的引用
                For Each vbComp2 In ThisWorkbook.VBProject.VBComponents
                    Set codeMod2 = vbComp2.CodeModule
                    For j = 1 To codeMod2.CountOfLines
                        ' 排除宏自身的定义行，只找调用行
                        If InStr(codeMod2.Lines(j, 1), procName) > 0 And j <> startLine Then
                            If Not (codeMod2.Lines(j, 1) Like "Sub " & procName & "*" Or codeMod2.Lines(j, 1) Like "Function " & procName & "*") Then
                                found = True
                                With Sheets("MacroReferences").Cells(Sheets("MacroReferences").Rows.Count, 1).End(xlUp).Offset(1, 0)
                                    .Value = procName
                                    .Offset(0, 1).Value = vbComp.Name
                                    .Offset(0, 2).Value = vbComp2.Name & " 第" & j & "行"
                                End With
                            End If
                        End If
                    Next j
                Next vbComp2
                ' 如果没找到任何调用，标记为未被使用
                If Not found Then
                    With Sheets("MacroReferences").Cells(Sheets("MacroReferences").Rows.Count, 1).End(xlUp).Offset(1, 0)
                        .Value = procName
                        .Offset(0, 1).Value = vbComp.Name
                        .Offset(0, 2).Value = "未检测到调用"
                    End With
                End If
                found = False
                i = endLine + 1
            Else
                i = i + 1
            End If
        Loop
    Next vbComp
    MsgBox "检测完成！结果已保存到「MacroReferences」工作表", vbInformation
End Sub

4. 运行这段代码（按F5或者点击运行按钮）

注意：第一次运行可能会报错，这时候需要开启VBA项目对象模型的访问权限：打开Excel选项→信任中心→信任中心设置→宏设置→勾选「信任对VBA项目对象模型的访问」，重启Excel后再试。

如果你只想查某个特定宏的使用情况，用Excel自带的查找功能更快捷：

• 在VBA编辑器里，按下 Ctrl+F 打开查找对话框
• 输入你要查的宏名称，把「搜索范围」改成「当前项目」，点击「查找全部」
• 搜索结果会列出所有包含该宏名称的位置，你可以逐个查看是不是调用语句（注意排除宏自身的定义行，比如Sub MyMacro()这种）
• 别忘了搜索Application.Run "MyMacro"这种间接调用的形式，有些宏会通过这种方式触发。

有些宏不是被其他宏调用，而是绑定在工作表的控件或事件上，这时候需要手动排查：

• 控件关联：右键工作表上的按钮、形状、ActiveX控件，选择「指定宏」，就能看到绑定的宏；ActiveX控件还要右键→「查看代码」，检查事件过程里有没有调用宏。
• 工作表/工作簿事件：右键工作表标签→「查看代码」，检查Worksheet_Activate、Worksheet_Change等事件过程；右键「ThisWorkbook」→「查看代码」，检查Workbook_Open、Workbook_BeforeSave等全局事件，这些地方都可能调用宏。
• 其他触发点：比如超链接、自定义菜单按钮，也可能绑定宏，右键超链接→「编辑超链接」→「本文档中的位置」，看是不是指向宏。

内容的提问来源于stack exchange，提问作者Deepak