尝试执行排序 VBA 命令时不断弹出错误 1004

Question

第 1 部分：

请大家帮忙指教是哪里出了问题。想使用 header

按降序对 E 列进行排序

Sub SortRows()

Dim destSht As Worksheet
Set destSht = ThisWorkbook.Worksheets("Account Level")

destSht.Sort.SortFields.Clear
Range("E2", destSht.Cells(destSht.Rows.Count, "E").End(xlUp)).Sort Key1:=Range("E2"), 
Header:=xlYes, _
Order1:=xlDescending

End Sub

第 2 部分：我应该如何以一种可以根据降序值动态过滤 C 列的方式输入 vba 代码？

Answer 1

可能

destSht.Range("E2", destSht.Cells(destSht.Rows.Count, "E").End(xlUp)).Sort Key1:=destSht.Range("E2"), 
Header:=xlYes, _
Order1:=xlDescending

基于 2022 年 5 月 12 日的最新评论

Sub sortRows()
    With Worksheets("Account Level")
        .sort.SortFields.Clear
        .Cells(1, 1).CurrentRegion.sort key1:=.Cells(2, 4), order1:=xlDescending, Header:=xlYes
        .Cells(1, 1).CurrentRegion.AutoFilter
    End With
End Sub

尝试执行排序 VBA 命令时不断弹出错误 1004

Error 1004 keeps popping out when trying to execute the sort VBA command

sorting

excel

vba