如何对含固定首尾工作表的Excel按日期名称排序中间工作表

你遇到的乱序问题是因为Excel默认对工作表名称按字符串字典序排序，而非按日期逻辑排序，比如字符串比较时"11-11-21"会排在"2-11-21"前面，是因为字符"1"的ASCII码比"2"小，和日期实际先后无关。
以下是可直接使用的VBA实现方案：

核心实现逻辑 #

• 先锁定Initial在第1位、Version在最后1位，只处理中间的日期命名工作表
• 将所有中间工作表的名称从DD-MM-YY格式转换为日期类型，再按日期值排序，而非直接比较字符串
• 排序完成后按日期升序将工作表插入到Initial之后、Version之前的位置

完整VBA代码 #

你可以把这段代码整合到你现有的新建工作表的按钮宏末尾，每次新建表后自动调用排序即可：

Sub 排序日期工作表()
    Dim ws As Worksheet
    Dim arrDate() As Date, arrName() As String
    Dim i As Integer, j As Integer, wsCount As Integer
    Dim tempDate As Date, tempName As String
    
    ' 第一步：统计所有符合要求的中间工作表
    wsCount = 0
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Initial" And ws.Name <> "Version" Then
            ' 校验名称是否为DD-MM-YY格式的日期，避免错误
            If IsDate(Format(ws.Name, "DD-MM-YY")) Then
                wsCount = wsCount + 1
                ReDim Preserve arrDate(1 To wsCount)
                ReDim Preserve arrName(1 To wsCount)
                arrDate(wsCount) = CDate(ws.Name)
                arrName(wsCount) = ws.Name
            End If
        End If
    Next ws
    
    ' 第二步：冒泡排序按日期升序排列
    For i = 1 To wsCount - 1
        For j = i + 1 To wsCount
            If arrDate(i) > arrDate(j) Then
                ' 交换日期
                tempDate = arrDate(i)
                arrDate(i) = arrDate(j)
                arrDate(j) = tempDate
                ' 交换对应工作表名
                tempName = arrName(i)
                arrName(i) = arrName(j)
                arrName(j) = tempName
            End If
        Next j
    Next i
    
    ' 第三步：按排序结果调整工作表位置
    For i = 1 To wsCount
        ThisWorkbook.Worksheets(arrName(i)).Move _
            After:=ThisWorkbook.Worksheets("Initial")
    Next i
    
    ' 最后锁定Version表在末尾
    ThisWorkbook.Worksheets("Version").Move _
        After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
End Sub

使用注意 #

如果你的系统区域设置导致CDate函数解析日期错误，可以将arrDate(wsCount) = CDate(ws.Name)替换为手动拆分处理逻辑：

Dim datePart As Variant
datePart = Split(ws.Name, "-")
arrDate(wsCount) = DateSerial(2000 + CInt(datePart(2)), CInt(datePart(1)), CInt(datePart(0)))

调用Call 排序日期工作表即可自动完成排序，无需手动操作。

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