基于工作表CodeName创建数组并通过For Each循环遍历，解决工作表ListObject排序代码失效问题

我来帮你拆解下代码无法运行的核心原因，顺便给你修正后的实现方案——你的需求完全可以实现，思路方向没问题，只是在Range引用的细节上踩了坑~

核心问题：未指定Range的所属工作表 #

你代码里的这一行是关键错误：

SortFields.add key:=Range(Table & "[[#All],[ID]]"), ...

VBA中如果直接写Range()，默认会引用当前活动工作表的单元格，而不是你循环中的sh工作表。这就导致当循环到非活动工作表时，要么找不到对应表格的ID列，要么引用到错误工作表的单元格，自然触发报错。

另外还有两个小细节可以优化：

• 把sh的类型从Variant改为Worksheet，类型更严谨，还能获得VBA的智能提示
• 重复调用sh.ListObjects(Table)有点冗余，可以先把ListObject对象存起来，代码更简洁高效

修正后的代码 #

Sub test()
    ' Create array from all worksheets using the Code Names
    Dim arr As Variant
    arr = Array(Sheet1, Sheet2, Sheet3, Sheet4, Sheet5, Sheet6, Sheet7)
    
    Dim sh As Worksheet ' 改为Worksheet类型更严谨
    Dim tbl As ListObject ' 新增变量存储表格对象
    Dim tableName As String
    
    ' Loop trough the sheets
    For Each sh In arr
        ' Table 1 of Sheet1 and so on...
        tableName = "Table " & Right(sh.CodeName, 1)
        
        ' 先获取当前工作表的表格对象
        Set tbl = sh.ListObjects(tableName)
        
        ' 清空原有排序规则
        tbl.Sort.SortFields.Clear
        
        ' 关键修改：指定Range属于当前循环的sh工作表
        tbl.Sort.SortFields.Add Key:=sh.Range(tableName & "[[#All],[ID]]"), _
                                SortOn:=xlSortOnValues, _
                                Order:=xlAscending, _
                                DataOption:=xlSortNormal
        
        ' 应用排序设置
        With tbl.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next sh
End Sub

额外说明 #

你提到之前少数场景下用sh.CodeName解决了问题，但这次不生效——因为sh.CodeName只是返回工作表的代码名字符串，不能直接用来定位工作表对象的成员（比如Range或ListObject），必须通过sh这个工作表对象本身来访问它的所有元素。

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