VBA中Range类Select方法调用失败（Runtime error 1004）求助

问题背景 #

表单点击「ADD」按钮可将数据写入Transactions工作表，工作簿WB赋值为ThisWorkbook，工作表WS赋值为WB.Worksheets("Transactions")。数据写入正常，但排序格式化阶段出现Runtime Error 1004，修改代码后又触发Unable to get the Sort property of the Range class错误。

错误原因分析 #

1. .Select/.Activate引发1004错误：VBA中执行Select或Activate操作时，目标工作表必须处于激活状态。即便定义了WS，只要Transactions不是当前活动表，.Select就会失败。
2. Sort属性调用错误：内层With .Range("A2:F" & i)后，直接调用.Sort不符合Range对象Sort方法的使用逻辑；同时SortFields的Key范围未限定到WS，会默认引用当前活动表，导致范围不匹配。

修正方案（推荐避免Select/Activate） #

直接操作工作表对象，无需激活或选中单元格，这是VBA稳定运行的最佳实践：

Dim WB As Workbook
Dim WS As Worksheet
Dim lastRow As Long

Set WB = ThisWorkbook
Set WS = WB.Worksheets("Transactions")

' 自动获取数据最后一行（假设A列为连续数据列）
lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row

With WS.Sort
    .SortFields.Clear
    ' 所有Key范围限定到WS，避免引用错误
    .SortFields.Add2 Key:=WS.Range("C1:C" & lastRow), _
                     SortOn:=xlSortOnValues, _
                     Order:=xlAscending, _
                     DataOption:=xlSortNormal
    .SortFields.Add2 Key:=WS.Range("B1:B" & lastRow), _
                     SortOn:=xlSortOnValues, _
                     Order:=xlAscending, _
                     DataOption:=xlSortNormal
    .SortFields.Add2 Key:=WS.Range("D1:D" & lastRow), _
                     SortOn:=xlSortOnValues, _
                     Order:=xlAscending, _
                     DataOption:=xlSortNormal
    ' 指定排序目标范围
    .SetRange WS.Range("A2:F" & lastRow)
    .Header = xlYes ' 第一行是表头设为xlYes，无表头则设为xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply ' 执行排序
End With

' 后续格式化代码示例（直接操作WS范围）
' WS.Range("A2:F" & lastRow).Font.Size = 10
' WS.Range("F2:F" & lastRow).NumberFormat = "$#,##0.00"

关键修正点：

• 使用WS.Sort直接操作工作表的Sort对象，避免Range对象Sort属性调用错误
• 所有Range前加WS.限定，确保引用Transactions工作表的范围
• 用lastRow自动获取最后一行数据，适配数据量变化，替代固定值i
• 通过.SetRange指定排序范围，.Apply执行排序，符合工作表Sort对象标准用法

备选方案（保留Select/Activate，不推荐） #

若必须使用Select，需先激活目标工作表：

Dim WB As Workbook
Dim WS As Worksheet
Dim i As Long

Set WB = ThisWorkbook
Set WS = WB.Worksheets("Transactions")
i = 28 ' 建议替换为lastRow自动获取

' 先激活目标工作表
WS.Activate
With WS
    .Range("A2:F" & i).Select
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=.Range("C1:C" & i), _ ' 加.限定为WS的Range
                         SortOn:=xlSortOnValues, _
                         Order:=xlAscending, _
                         DataOption:=xlSortNormal
    ' 其他SortFields同理，Key前加.
    .Sort.SetRange .Range("A2:F" & i)
    .Sort.Header = xlYes
    .Sort.Apply
End With

关键注意：

• 必须先执行WS.Activate，否则.Select会失败
• SortFields的Key必须用.Range（即WS.Range），不能直接写Range

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