如何在Excel新工作表中选择表格？宏表格选择异常问题

你的问题出在硬编码了录制时的特定表格名称——Table13456789101112131415166188是你录制宏时当前工作表的表格名，切换到其他工作表后，这个名称的表格大概率不存在，所以Excel会报错。

下面给你两种实用的解决思路，根据你的实际情况选择：

思路1：每个工作表只有一个目标表格 #

如果每个工作表里的待操作表格是唯一的结构化表格（即每个sheet里只有一个表），直接引用工作表的第一个表格即可，不用管它叫什么名字：

Sub New_Hours()
'
' New_Hours Macro
' 切换到下一个工作表并清除周几列内容
'
' 快捷键: Ctrl+Shift+L
'
    ' 先判断是否还有下一个工作表，防止报错
    If Not ActiveSheet.Next Is Nothing Then
        Dim nextSheet As Worksheet
        Set nextSheet = ActiveSheet.Next
        
        ' 获取下一个工作表的第一个结构化表格
        Dim targetTable As ListObject
        Set targetTable = nextSheet.ListObjects(1)
        
        ' 批量清除Sunday到Saturday列的内容
        Dim weekCols As Variant
        weekCols = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
        
        Dim col As Variant
        For Each col In weekCols
            ' 确保列存在且有数据再清除
            If Not targetTable.ListColumns(col) Is Nothing Then
                If Not targetTable.ListColumns(col).DataBodyRange Is Nothing Then
                    targetTable.ListColumns(col).DataBodyRange.ClearContents
                End If
            End If
        Next col
        
        ' 定位到下一个工作表的E9单元格
        nextSheet.Range("E9").Select
    Else
        MsgBox "已经是最后一个工作表了！"
    End If
End Sub

思路2：所有工作表的目标表格有统一名称 #

如果每个工作表里的目标表格都叫同一个名字（比如统一命名为HoursTable），直接通过名称引用更准确：

只需要把思路1里的Set targetTable = nextSheet.ListObjects(1)替换成：

Set targetTable = nextSheet.ListObjects("HoursTable")

额外优化提示 #

录制宏会自动生成.Select/.Activate这类冗余代码，直接操作对象（比如nextSheet、targetTable）不仅更高效，还能避免因选中状态混乱导致的错误，建议尽量用这种写法。

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