如何让多个VBA子过程统一引用同一工作表？

方法1：用工作表的代码名称（最推荐，零维护） #

每个工作表都有两个名字：一个是Excel界面上显示的名称（比如你现在的Sheet1），另一个是VBA编辑器里的代码名称（在属性窗口的(Name)字段）。不管界面名称怎么改，代码名称不会变，直接用它引用就行：

1. 打开VBA编辑器（按Alt+F11），找到目标工作表（比如Project窗口里的Sheet1）
2. 在属性窗口（按F4）把(Name)改成好记的名字，比如wsData或wsReport
3. 所有子过程直接用这个代码名称操作，不用再写Set ws = Sheets("Sheet1")：

Sub 填写数据()
    wsData.Range("A1").Value = "测试文本"
End Sub

Sub 统计数据()
    Dim lastRow As Long
    lastRow = wsData.Cells(Rows.Count, 1).End(xlUp).Row
    ' 后续操作
End Sub

以后不管你把Sheet1改名叫“销售数据”还是别的，代码完全不用动。

方法2：定义全局常量（集中修改） #

如果不想改代码名称，就在标准模块顶部定义一个全局常量，所有子过程都用这个常量：

' 放在标准模块的最顶部，所有子过程外面
Public Const TARGET_SHEET As String = "Sheet1"

子过程里这样用：

Sub 示例操作()
    Dim ws As Worksheet
    Set ws = Sheets(TARGET_SHEET)
    ws.Range("B2").Value = "更新内容"
End Sub

以后要改工作表名称，只需要修改常量TARGET_SHEET的值就行，不用逐个改子过程。

方法3：写一个公共获取函数 #

如果需要更灵活的逻辑（比如判断工作表是否存在），可以写一个公共函数专门返回目标工作表：

' 放在标准模块里
Public Function GetTargetSheet() As Worksheet
    ' 可以加判断，防止工作表不存在报错
    On Error Resume Next
    Set GetTargetSheet = Sheets("Sheet1")
    On Error GoTo 0
    
    ' 如果找不到，可加提示
    If GetTargetSheet Is Nothing Then
        MsgBox "目标工作表不存在！"
    End If
End Function

子过程调用这个函数：

Sub 处理数据()
    Dim ws As Worksheet
    Set ws = GetTargetSheet()
    If Not ws Is Nothing Then
        ' 执行操作
        ws.Columns("A").AutoFit
    End If
End Sub

修改工作表名称时，只需要改GetTargetSheet函数里的名字。

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