VBA宏跨同一工作簿多工作表运行报错：_Worksheet对象Range方法失败

错误原因排查 #

你遇到的method range of object _worksheet failed报错核心是跨工作表的范围引用不匹配，代码存在两个问题：

1. 未给Range、Columns等对象统一绑定所属工作表，VBA默认会调用当前活动工作表的属性，当你切换到其他工作表运行时，LeaveTracker（原始工作表的代号/名称）的Range对象里嵌套了其他工作表的Columns参数，语法不合法直接触发报错
2. 你需要宏在多个结构相同的工作表运行，但代码里硬编码了LeaveTracker这个固定工作表，导致逻辑只会作用在原始表，不符合多表运行的需求

问题解答 #

1. 如何设置显式工作表限定符 #

所有涉及单元格、行、列、范围的对象，前面都需要明确指定所属的工作表，不要留缺省值。常见写法有两种：

• 直接加工作表对象前缀：比如ActiveSheet.Range("A3")、Sheets("目标表名").Columns("B:NI")
• 用With语句批量绑定，减少重复代码：

With ActiveSheet ' 可替换为你指定的任意工作表对象
    .Range("A3").Value = 1 ' 对象前加.就会自动绑定With后指定的工作表
    .Columns("B:NI").Hidden = True
End With

2. 是否支持上传.xlsb格式的文件 #

Stack Exchange系列站点不支持直接上传二进制类的Excel文件，如果你需要补充场景信息，粘贴相关代码片段、描述表格结构即可。

修正后可多表运行的代码 #

优化后切换工作表运行时会自动作用在当前激活的工作表，不需要硬编码固定表名：

Sub SwitchMonth(Optional isNext As Boolean = True)
    Dim ws As Worksheet
    Dim currentMonth As Long
    ' 绑定当前活动工作表，切换到哪个表运行就作用在哪个表
    Set ws = ActiveSheet
    currentMonth = ws.Range("A3").Value
    
    ' 边界判断
    If (isNext And currentMonth = 12) Or (Not isNext And currentMonth = 1) Then
        Exit Sub
    End If
    
    ' 调整月份
    If isNext Then
        currentMonth = currentMonth + 1
    Else
        currentMonth = currentMonth - 1
    End If
    ws.Range("A3").Value = currentMonth
    
    ' 所有范围对象都绑定ws工作表，避免跨表报错
    ws.Columns("B:NI").Hidden = True
    ws.Range(ws.Columns(currentMonth * 31 - 29), ws.Columns(currentMonth * 31 + 1)).Hidden = False
End Sub

' 上月按钮调用该子程序
Sub PrevMonth()
    Call SwitchMonth(False)
End Sub

' 下月按钮调用该子程序
Sub NextMonth()
    Call SwitchMonth(True)
End Sub

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