如何解决Excel工作表按Item(数字)命名时排序顺序异常问题

问题原因 #

原有代码是直接对工作表名称做字符串字典序比对，该规则是逐字符比较：比如"Item (11)"的第7位字符是1，"Item (2)"的第7位字符是2，所以字符串层面会判定"Item (11)" < "Item (2)"，最终出现错误排序结果。

修正后VBA代码 #

核心逻辑改为提取工作表名称括号内的数字，以数值大小作为排序依据：

Sub 按工作表编号升序排序()
    Dim N As Long, i As Long, k As Long
    Dim num1 As Long, num2 As Long
    Dim sheetName As String
    
    N = Application.Sheets.Count
    
    For i = 1 To N
        For k = 1 To N - 1
            ' 提取前一个工作表的编号
            sheetName = Sheets(k).Name
            num1 = Val(Mid(sheetName, InStr(sheetName, "(") + 1))
            ' 提取后一个工作表的编号
            sheetName = Sheets(k + 1).Name
            num2 = Val(Mid(sheetName, InStr(sheetName, "(") + 1))
            
            ' 按数值大小比较，前一个编号更大就交换位置
            If num1 > num2 Then
                Sheets(k).Move After:=Sheets(k + 1)
            End If
        Next
    Next
End Sub

注意事项 #

• 代码默认所有工作表都符合Item (数字)的命名规则，会自动提取左括号后的数字参与比对
• 如果存在不符合命名规则的工作表，可在提取编号前加判断逻辑跳过对应工作表即可

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