Excel VBA动态表名排序：能否用字符串指定Add2的Key范围？

完全可以通过字符串形式指定排序的Key范围，而且更适配你动态获取表名的需求。下面是两种可靠实现方式，同时优化你原代码里的冗余和Select操作：

方法1：通过ListObject的ListColumns直接获取列范围（推荐） #

利用表对象的ListColumns方法，传入列名字符串就能直接拿到对应列的完整数据范围，无需硬编码Range引用：

Sub SortTableByDynamicColumn()
    Dim targetTable As ListObject
    Dim sortColumnName As String
    
    ' 动态获取表对象（避免使用Select）
    Set targetTable = Range("A11").ListObject
    ' 定义要排序的列名字符串（可替换为动态值）
    sortColumnName = "Cabinet Number"
    
    ' 清除原有排序规则
    targetTable.Sort.SortFields.Clear
    ' 添加排序规则，用字符串指定列名
    targetTable.Sort.SortFields.Add2 _
        Key:=targetTable.ListColumns(sortColumnName).Range, _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
    
    ' 应用排序设置
    With targetTable.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

方法2：用字符串构建结构化引用 #

如果坚持用Range的字符串形式，需确保引用的表名是动态获取的TN，并构建符合格式的结构化引用字符串：

Sub SortTableByDynamicRangeString()
    Dim TN As String
    Dim sortColumnName As String
    Dim tableRangeString As String
    Dim ws As Worksheet
    
    Set ws = ActiveWorkbook.Worksheets("Base Unit")
    ' 动态获取表名
    TN = ws.Range("A11").ListObject.Name
    ' 定义排序列名字符串
    sortColumnName = "Cabinet Number"
    
    ' 构建结构化引用字符串：表名[[#All],[列名]]
    tableRangeString = TN & "[[#All],[" & sortColumnName & "]]"
    
    ' 清除原有排序规则
    ws.ListObjects(TN).Sort.SortFields.Clear
    ' 添加排序规则，传入构建好的字符串范围
    ws.ListObjects(TN).Sort.SortFields.Add2 _
        Key:=ws.Range(tableRangeString), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
    
    ' 应用排序设置
    With ws.ListObjects(TN).Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

你之前命名范围出错的可能原因 #

• 命名范围未关联动态表：如果表名是动态的，命名范围的引用不能硬编码表名，需用相对引用或动态构建。
• 结构化引用格式错误：构建字符串时，表名和列名的括号、逗号必须严格遵循Excel结构化引用格式（如表名[[#All],[列名]]）。
• 未指定工作表：直接用Range()可能引用到当前活动工作表，而非目标表所在的"Base Unit"工作表，导致范围找不到。

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