如何根据单元格内的宏名称调用指定VBA宏？

嘿，我完全懂你遇到的困扰——直接用Call搭配字符串变量或单元格内容根本行不通，因为Call要求的是明确的过程名称标识符，而不是字符串形式的名称。咱们得换个思路，用VBA内置的Application.Run方法来实现动态调用，这玩意儿就是专门用来处理这种“根据字符串执行对应宏”的场景的。

为什么之前的尝试失败？ #

• 当你写Call Size_Position时，如果Size_Position是字符串变量，VBA会把它当成一个过程名去查找，而不是读取变量里的字符串内容，自然会报错找不到这个过程。
• Call Range("A6")的问题更明显：Range("A6")返回的是单元格对象，不是过程名称字符串，Call根本没法识别它。

正确的解决方案：使用Application.Run #

Application.Run接受字符串形式的过程名称作为参数，能完美匹配你的需求。下面给你两种常见场景的示例代码：

场景1：直接根据单元格M和C的组合生成宏名称并调用

Sub DynamicMacroCall()
    ' 从单元格获取M和C的值（假设M在B2，C在C2，可根据实际位置调整）
    Dim sizeVal As String, positionVal As String
    sizeVal = Range("B2").Value ' 比如"M"
    positionVal = Range("C2").Value ' 比如"C"
    
    ' 组合成宏名称
    Dim macroName As String
    macroName = sizeVal & "_" & positionVal ' 得到"M_C"
    
    ' 动态调用宏，加上错误处理避免崩溃
    On Error Resume Next
    Application.Run macroName
    If Err.Number <> 0 Then
        MsgBox "错误：找不到名为「" & macroName & "」的宏，请检查名称是否正确！"
    End If
    On Error GoTo 0
End Sub

场景2：从单元格A6读取宏名称并调用

Sub CallMacroFromCell()
    Dim macroName As String
    macroName = Range("A6").Value ' 比如单元格A6里是"M_C"
    
    ' 执行宏
    On Error Resume Next
    Application.Run macroName
    If Err.Number <> 0 Then
        MsgBox "错误：找不到名为「" & macroName & "」的宏，请检查单元格内容！"
    End If
    On Error GoTo 0
End Sub

额外注意事项 #

• 宏名称匹配：确保字符串和宏的实际名称完全一致（VBA对大小写不敏感，但建议完全匹配避免混淆）。
• 跨模块调用：如果宏不在当前模块里，需要加上模块名前缀，比如Application.Run "Module2.M_C"（把Module2换成你的模块实际名称）。
• 错误处理：一定要加上On Error相关的处理，否则如果宏名称不存在，程序会直接报错崩溃，影响使用体验。

这样就能轻松实现根据单元格内容动态调用对应宏的需求啦，你可以把代码调整成符合你实际单元格位置的版本，测试看看效果～

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