按特定列号排序 - Excel VBA

Question

下面的代码按设定范围内的数据排序

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
lastcol = .Cells(1, Columns.Count).End(xlToLeft).Column 

mySheet.Sort.SortFields.Clear
mySheet.Sort.SortFields.Add Key:=Range("A2:A" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With mySheet.Sort
    .SetRange Range("A1:U" & lastrow)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

每次执行代码时，列数可能会有所不同。有没有办法调整这段代码，使范围同时使用 lastrow 和 lastcol？

Answer 1

是的，请参见下面的调整（未测试），但您应该了解逻辑。

With mySheet.Sort
    .SetRange Range(mySheet.Cells(1,1), mySheet.Cells(lastrow,lastcol))
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With