如何实现通用格式日期的时间顺序排序并保留dd.mm.yyyy格式（兼容多区域系统）

你遇到的核心问题是：这些日期本质是文本格式，虽然你设置了单元格显示格式，但Excel并没有将它们转换为真正的日期值——而文本排序是按字符顺序来的（比如先比较第一个点前的数字，也就是“日”部分），这就导致了排序异常。更关键的是，不同区域系统（德国/美国）对日期格式的解析逻辑不同，直接依赖系统转换很容易出错。

下面是一个跨系统兼容的解决方案，核心思路是手动解析文本日期为Excel日期值（不依赖区域设置），再进行排序：

修改后的VBA代码 #

Sub SortDatesCorrectly()
    Dim ws As Worksheet
    Dim dateRange As Range
    Dim cell As Range
    Dim dayPart As Integer, monthPart As Integer, yearPart As Integer
    
    Set ws = ActiveWorkbook.Worksheets(1)
    ' 定位日期数据范围（从A2到最后一行非空单元格）
    Set dateRange = ws.Range("A2", ws.Range("A2").End(xlDown))
    
    ' 遍历转换：将dd.mm.yyyy文本转为真正的日期值
    For Each cell In dateRange
        If cell.Value <> "" Then
            ' 拆分文本中的日、月、年部分
            dayPart = CInt(Left(cell.Value, 2))
            monthPart = CInt(Mid(cell.Value, 4, 2))
            yearPart = CInt(Right(cell.Value, 4))
            ' 使用DateSerial生成日期值，硬编码年/月/日顺序，不受系统区域影响
            cell.Value = DateSerial(yearPart, monthPart, dayPart)
        End If
    Next cell
    
    ' 设置显示格式为dd.mm.yyyy
    dateRange.NumberFormat = "dd.mm.yyyy"
    
    ' 执行正确的日期排序
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("A1"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange ws.Range("A1", ws.Range("A1").End(xlDown))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

方案说明 #

1. 手动解析日期：通过Left/Mid/Right拆分dd.mm.yyyy格式的文本，再用DateSerial(year, month, day)生成日期值——这个函数不依赖系统区域设置，不管是德国还是美国系统，都能准确识别01.02.2020为2020年2月1日。
2. 转换为日期值：Excel的日期本质是数字，转换后排序时会按时间顺序（而不是文本字符顺序）处理。
3. 保留显示格式：最后设置dd.mm.yyyy格式，确保显示效果符合你的需求。

额外提示 #

如果你的数据中存在非标准格式的日期，可以添加错误处理逻辑（比如On Error Resume Next）来跳过无效值，避免代码报错。

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