Excel VBA日期排序异常：设置格式后仍先按日再按月排序如何解决

对两列日期数据排序时逻辑异常，系统优先按日期中的「日」字段排序，之后再按「月」字段排序，未按日期实际先后顺序排列。

异常排序结果示例：

01/06/22
02/06/22
03/06/22
30/05/2022

当前使用的VBA实现代码如下：

Last_row = Sheets("Raw Data").Range("A1").End(xlDown).Row
With Sheets("Raw Data")
    .Range("A2:A" & Last_row).Cells.NumberFormat = "d/m/yyyy"
    .Range("C2:C" & Last_row).Cells.NumberFormat = "d/m/yyyy"
    .Range("A1:AT" & Last_row).Sort Key1:=.Range("C1"), Order1:=xlAscending, Key2:=.Range("H1"), Order2:=xlAscending, Header:=xlYes
End With

仅修改单元格数字格式只会调整内容的显示样式，不会改变单元格底层存储的值。当前A、C列的日期本质是文本类型，而非Excel可识别的数值型日期序列值。Excel对文本内容排序时会从左到右逐字符比对，因此会优先匹配最左侧的「日」字段数值，最终出现5月30日排在6月所有日期之后的错误排序结果。

• 排序前先将文本格式的日期转换为Excel可识别的真实日期值，再统一设置显示格式。
• 转换完成后再执行排序操作，即可按真实时间先后顺序排列。

修正后的完整VBA代码如下：

Last_row = Sheets("Raw Data").Range("A1").End(xlDown).Row
With Sheets("Raw Data")
    ' 遍历目标日期列，将可识别的文本日期转换为日期值
    Dim cell As Range
    For Each cell In .Range("A2:A" & Last_row & ",C2:C" & Last_row)
        If IsDate(cell.Text) Then
            cell.Value = CDate(cell.Text)
        End If
    Next
    ' 设置日期显示格式
    .Range("A2:A" & Last_row).Cells.NumberFormat = "d/m/yyyy"
    .Range("C2:C" & Last_row).Cells.NumberFormat = "d/m/yyyy"
    ' 执行排序
    .Range("A1:AT" & Last_row).Sort Key1:=.Range("C1"), Order1:=xlAscending, Key2:=.Range("H1"), Order2:=xlAscending, Header:=xlYes
End With

如果数据量较大，觉得单元格遍历转换效率低，也可以不用VBA循环，手动用分列功能快速转换整列日期：选中目标日期列，依次点击「数据」选项卡-「分列」，前两步直接点击下一步，第三步列数据格式选择「日期」，下拉选择DMY格式，点击完成即可一次性将整列d/m/y格式的文本转换为真实日期，之后再运行原有排序代码也能得到正确结果。

内容的提问来源于stack exchange，提问作者pythonpypy