对书中的纸张进行排序

描述

如果你的书中的标签数量接近几十个，迟早会有实施的愿望 对书中的纸张进行排序 ，按字母顺序排列它们。标准 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) ，它会快速对当前工作簿中的所有工作表进行排序。

有关该主题的文章：

• 合并工作簿 (CombineWorkbooks)
• 书页之间快速切换