对书中的纸张进行排序

描述

如果您书中的选项卡数量接近几十个，您迟早会想要按字母顺序对书中的工作表进行排序。标准 Excel 工具不允许您执行此操作，因此让我们编写一个简单的宏来执行此操作。

VBA 宏代码

打开菜单服务 - 宏 - 编辑器 Visual Basic (Tools - Macro - Visual Basic Editor) , 插入 VBA 模块 (菜单 Insert - Module ）并复制到那里本文：

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox "选项卡按 A 到 Z 排序"
End Sub

现在可以通过菜单服务 - 宏 - 宏（Tools - Macro - Macros）来运行该宏，它将快速对当前工作簿中的所有工作表进行排序。

有关该主题的文章：