Question

我有几列，每个列都有第一个带有excel日期序列号的单元格（例如42767，等于2017-02-01）。我必须重新排序按这些日期递增的所有列。非常感谢任何帮助。

Answer 1

NVM，发布了我自己的问题的答案：

Range("B1").Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Add Key:=Range("B1:C1") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Arkusz1").Sort
    .SetRange Range("B1:C8")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlLeftToRight
    .SortMethod = xlPinYin
    .Apply
End With

按日期更改列

1 个答案: