VBA宏 对工作表进行排序，按照sheet名称的升序规则来做？以下是一个 VBA 宏，用于对 Excel 工作簿中的所有工作表按照名称升序排序（A-Z）：
Sub SortWorksheetsByNameAscending() Dim i As Long, j As Long Dim wsCount As Long Dim swapped As Boolean Application.ScreenUpdating = False wsCount = ThisWorkbook.Worksheets.Count ' 如果没有工作表或只有一个工作表，则退出 If wsCount <= 1 Then Exit Sub ' 使用冒泡排序算法 Do swapped = False For i = 1 To wsCount - 1 ' 比较相邻工作表名称 If UCase(Worksheets(i).Name) > UCase(Worksheets(i + 1).Name) Then ' 交换位置：将后一个工作表移动到前一个之前 Worksheets(i + 1).Move Before:=Worksheets(i) swapped = True End If Next i Loop While swapped Application.ScreenUpdating = True MsgBox "工作表已按名称升序排序完成！", vbInformationEnd Sub
使用说明：
按 Alt + F11打开 VBA 编辑器
在左侧项目窗口中，右键单击您的工作簿
选择"插入" → "模块"
将上述代码粘贴到新模块中
关闭 VBA 编辑器
在 Excel 中按 Alt + F8，选择 SortWorksheetsByNameAscending并运行
功能特点：
升序排序：A → Z（不区分大小写）
原地排序：直接在原工作簿中调整工作表顺序
冒泡算法：简单可靠的排序方法
屏幕更新优化：关闭屏幕刷新提高速度
完成提示：操作后显示确认消息
自定义选项：
降序排序：将比较运算符 >改为 <
包含图表工作表：将 Worksheets改为 Sheets
排除特定工作表：在循环中添加条件判断
