如何在Excel VBA工作表字母排序代码中排除指定工作表？

你的需求是对工作簿中的工作表按字母排序，但保留前两个工作表（Table of contents、Project Template）和最后两个工作表（Help、Settings）的位置不变。原代码的问题在于未限定排序范围，直接对所有工作表执行比较移动，导致需要固定位置的表被打乱。

修改后的VBA代码（固定位置场景） #

Sub SortWorksheetsAlphabetially()
    '关闭屏幕刷新提升运行效率
    Application.ScreenUpdating = False
    
    Dim wb As Workbook
    Dim wsCount As Integer
    Dim i As Integer
    Dim j As Integer
    
    Set wb = ActiveWorkbook
    wsCount = wb.Worksheets.Count
    
    '仅对中间区域工作表排序：跳过前2个、后2个固定表
    For i = 3 To wsCount - 2
        For j = i + 1 To wsCount - 2
            '按名称升序对比，若j表名称更小则移动到i表前
            If wb.Worksheets(j).Name < wb.Worksheets(i).Name Then
                wb.Worksheets(j).Move before:=wb.Worksheets(i)
            End If
        Next j
    Next i
    
    '恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

关键逻辑说明 #

1. 精准限定排序范围：通过设置循环起始为3、结束为wsCount - 2，直接跳过首尾四个不需要排序的工作表，排序操作仅作用于中间区域的表，从根源避免固定表位置被改动。
2. 保留原排序逻辑：内部嵌套的名称对比、工作表移动逻辑和原代码一致，确保中间区域的工作表按字母升序排列。

灵活实现版本（排除表位置不固定场景） #

如果后续需要排除的工作表位置可能变化，可先筛选出需要排序的表再执行排序：

Sub SortWorksheetsAlphabetially_Flexible()
    Application.ScreenUpdating = False
    
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim sortSheets As New Collection
    Dim i As Integer, j As Integer
    Dim tempWs As Worksheet
    Dim excludeSheets As Variant
    
    '定义需要排除排序的工作表名称
    excludeSheets = Array("Table of contents", "Project Template", "Help", "Settings")
    Set wb = ActiveWorkbook
    
    '筛选需要排序的工作表加入集合
    For Each ws In wb.Worksheets
        If IsError(Application.Match(ws.Name, excludeSheets, 0)) Then
            sortSheets.Add ws
        End If
    Next ws
    
    '对集合内的工作表按名称排序
    For i = 1 To sortSheets.Count - 1
        For j = i + 1 To sortSheets.Count
            If sortSheets(j).Name < sortSheets(i).Name Then
                '交换集合内的工作表顺序
                Set tempWs = sortSheets(i)
                sortSheets.Remove i
                sortSheets.Add tempWs, Before:=j
            End If
        Next j
    Next i
    
    '将排序后的工作表移动到固定表之间的位置
    For Each ws In sortSheets
        ws.Move after:=wb.Worksheets("Project Template")
    Next ws
    
    Application.ScreenUpdating = True
End Sub

这个版本无需依赖排除表的固定位置，会自动筛选出需要排序的表，再将它们移动到Project Template之后、Help之前的区域。

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