如何在不同Worksheet中复用相同宏且不修改Sub名称？

完全可以不用重命名就复用这些宏，核心是把宏放在标准模块中（而非单个工作表的模块），同时调整代码逻辑，让宏能针对触发它的工作表执行操作，避免依赖ActiveSheet导致切换工作表时出错。

具体步骤 #

1. 将宏移到标准模块 #

• 按Alt+F11打开VBA编辑器；
• 在左侧项目浏览器中右键点击你的工作簿名称，选择「插入」→「模块」；
• 将示例中的宏代码复制粘贴到这个新建的标准模块里。

2. 修改宏代码，适配所有工作表 #

推荐用Application.Caller自动识别触发宏的工作表，不管从哪个工作表调用，宏都会操作该工作表的单元格。修改后的代码如下：

Sub BI_Office_19_F()
    Dim targetSheet As Worksheet
    Application.ScreenUpdating = False
    
    ' 根据调用者类型获取目标工作表
    Select Case TypeName(Application.Caller)
        Case "Range"
            Set targetSheet = Application.Caller.Parent
        Case "Shape", "Button"
            Set targetSheet = Application.Caller.TopLeftCell.Parent
        Case Else
            Set targetSheet = ActiveSheet ' 兜底方案，确保不会报错
    End Select
    
    ' 统一操作目标工作表的单元格
    With targetSheet
        .Range("AC19").Value = ""
        .Range("AD19").Value = 1
        .Range("AE19").Value = ""
        .Range("AF19").Value = ""
        .Range("AG19").Value = ""
    End With
    
    Application.ScreenUpdating = True
End Sub

如果是通过VBA代码批量调用宏，可以给宏添加工作表参数，调用时直接传入目标工作表对象：

Sub BI_Office_19_F(targetSheet As Worksheet)
    Application.ScreenUpdating = False
    
    With targetSheet
        .Range("AC19").Value = ""
        .Range("AD19").Value = 1
        .Range("AE19").Value = ""
        .Range("AF19").Value = ""
        .Range("AG19").Value = ""
    End With
    
    Application.ScreenUpdating = True
End Sub

' 调用示例（遍历所有工作表执行）：
Sub RunOnAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        BI_Office_19_F ws
    Next ws
End Sub

3. 绑定宏到工作表的F19触发点 #

• 表单控件按钮：在每个工作表的F19附近插入表单控件按钮，右键点击按钮选择「指定宏」，选中标准模块里的BI_Office_19_F即可；
• 单元格双击触发：如果希望双击F19时执行宏，可以在每个工作表的模块中添加以下代码（若工作表数量多，可通过类模块批量实现，避免重复编写）：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$F$19" Then
        Cancel = True ' 取消默认的单元格编辑状态
        BI_Office_19_F ' 调用标准模块中的宏
    End If
End Sub

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