嘿，你猜的完全没错！这个「下标越界」错误就是因为宏里硬编码了固定的工作表名称"WeeklyLaborHours (5)"——如果当前激活的工作表不是这个名字，或者工作簿里根本没有这个表，系统自然找不到目标，就会报错。另外，你的宏还依赖Select和Selection这类操作，不仅容易出错，也没法适配每周变化的员工行数。

我给你修改了宏代码，一次性解决这两个核心问题：

' WLM_2 Macro - 适配动态行数+避免硬编码工作表
Sub WLM_2()
    ' 定义当前工作表对象，彻底摆脱固定名称依赖
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 直接绑定当前激活的工作表
    
    ' 冻结首行（保留原功能）
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With
    
    ' 删除指定列（移除Select操作，直接操作列对象更稳定）
    ws.Columns("A:A").Delete Shift:=xlToLeft
    ' 用循环简化原重复的C列删除操作
    Dim i As Integer
    For i = 1 To 5
        ws.Columns("C:C").Delete Shift:=xlToLeft
    Next i
    
    ' 自动适配A-C列宽度
    ws.Columns("A:C").AutoFit
    
    ' 动态获取最后一行数据，适配不同员工数量
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' 以B列为准定位最后一行
    
    ' 设置排序规则，基于当前工作表对象
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("B1"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        .SetRange ws.Range("A2:V" & lastRow) ' 动态调整排序范围，不再固定到371行
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

关键改动说明： #

• 替换硬编码工作表：用ActiveSheet绑定当前激活的工作表，所有操作都基于这个对象，再也不用纠结工作表名称是否匹配。
• 移除Select/Selection：直接通过ws.Columns操作列，避免因选中错误区域导致的意外，代码运行更高效稳定。
• 动态行数适配：自动计算B列最后一行有数据的位置，排序范围从固定的A2:V371改成动态的A2:V" & lastRow，完美适配每周不同的员工数量。
• 简化重复操作：用循环替代原重复的Selection.Delete代码，让宏更简洁易维护。

这样修改后，不管你当前处理的工作表叫什么名字，也不管当周员工行数怎么变，宏都能正常运行啦！

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