VBA中表格排序触发运行时错误'1004'的问题求助

你的错误根源在于未正确指定结构化引用所属的工作表，以及直接使用全局Range()函数可能导致的上下文不匹配。以下是两种可靠的修正方案：

方案1：通过ListObject直接获取目标列（推荐） #

利用ListObject的ListColumns属性直接定位目标列，避免字符串拼接和全局Range的问题，代码更稳定：

Dim mainSheet As Worksheet
Dim table As Range

Set mainSheet = ActiveSheet
Set table = mainSheet.Range("A1").CurrentRegion ' 明确指定工作表，避免ActiveSheet切换问题

' 创建表格
mainSheet.ListObjects.Add(xlSrcRange, table, , xlYes).Name = "MainAccounts"

Dim tableConverted As ListObject
Dim propertyColumn As Range

Set tableConverted = mainSheet.ListObjects("MainAccounts")
' 直接通过表对象获取列范围，无需拼接字符串
Set propertyColumn = tableConverted.ListColumns("property").Range

With tableConverted.Sort
    .SortFields.Clear
    .SortFields.Add Key:=propertyColumn, SortOn:=xlSortOnValues, Order:=xlDescending
    .Header = xlYes
    .Apply
End With

方案2：修正结构化引用的工作表上下文 #

如果坚持用结构化引用，必须明确指定所属工作表，避免全局Range()默认使用ActiveSheet导致的错误：

' 其他代码不变，修改propertyColumn的赋值行
Set propertyColumn = mainSheet.Range(tableConverted.Name & "[[#All],[property]]")

额外注意事项 #

• 确保表头列名确实是property（大小写不敏感，但要和实际表头完全一致，包括空格或特殊字符）
• 所有Range引用都尽量指定所属工作表，避免因ActiveSheet切换引发的隐性错误

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