database - 在excel vba中使用超过1个键对数据库进行排序

Question

我想用 4 个键对数据库进行排序，但每当添加第 4 个键时，它都会说找不到命名参数，而它使用这 3 个键对数据库进行排序..如何在其中添加第 4 个键..？？

Range("A1:E" & lastrow).Sort key1:=Range("A1:A" & lastrow), order1:=xlAscending, _
                             key2:=Range("C1:C" & lastrow), order2:=xlAscending, _
                             key3:=Range("D1:D" & lastrow), order3:=xlDescending, _
                             Header:=xlYes

Answer 1

Range.Sort method每个进程最多有三个键。但是，如果您先按额外键排序，然后再按三个最主要的键排序，您会获得相同的结果。

With Range("A1:E" & lastrow)
    'sort on the 4th key first (column E)
    .Cells.Sort Key1:=.Columns(5), Order1:=xlAscending, _
                Orientation:=xlTopToBottom, Header:=xlYes
    'sort on the 1st, 2nd and 3rd keys (columns A, C and D)
    .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                Key2:=.Columns(3), Order2:=xlAscending, _
                Key3:=.Columns(4), Order3:=xlAscending, _
                Orientation:=xlTopToBottom, Header:=xlYes
End With

这产生的结果与方法中允许的 Key4:=.Columns(5), Order4:=xlAscending 相同。

我尝试使用 With ... End With statement以确保定义键的父级的简单方法。您的原始代码依赖于 ActiveSheet property这并不总是可靠的。