vba - 按日期对表格条目排序 (dd.mm.yyyy)

Question

我正在尝试按列中的日期对表格进行排序。日期的格式为 dd.mm.yyyy。

我使用以下代码对 rng Range-Object 内的数据进行排序:

rng.Sort key1:=.Cells(HeaderRow, SortColumn), _
            order1:=xlAscending, Header:=xlYes, DataOption1:=xlSortTextAsNumbers

但是，由于日期的格式，排序结果是按字母顺序正确排序，但不是按日期排序，因为字符串是从第一个字符到最后一个字符排序的。例如，输出为:

10.07.2018    
10.08.2017    
11.06.2018

是否有任何类型的选项可以进行排序，以便正确地对日期进行排序？非常感谢!

Answer 1

如果这些是实际日期，那么它们将正确排序；它们必须是看起来像日期的文本。将看起来像日期的文本转换为实际日期，对它们进行排序并应用所需的数字格式。

With rng
    .TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, _
                   FieldInfo:=Array(0, xlDMYFormat)
    .Sort Key1:=.Cells(1), Order1:=xlAscending, _
          Orientation:=xlTopToBottom, Header:=xlYes
    .NumberFormat = "dd.mm.yyyy"
End With