如何在Excel中按字母顺序对工作表选项卡进行排序

如果Excel工作簿中有大量工作表，则可能很难找到特定的工作表。按字母顺序对工作表选项卡进行排序可以更容易地找到您要查找的内容。

相关：如何在Excel中重命名工作表选项卡

除了通过对工作表选项卡应用颜色来组织它们之外，您还可以按字母顺序或字母数字顺序对它们进行排序，只要您对工作表应用了自定义名称即可。遗憾的是，Excel中没有内置按字母顺序对工作表选项卡进行排序的功能，但您可以在工作簿中添加一个宏，使您可以按升序或降序对选项卡进行排序。我们将向您展示如何将Microsoft支持网站上提供的宏添加到Excel工作簿中，该工作簿将对工作表选项卡进行排序。

要开始，请按Alt+F11打开Microsoft Visual Basic for Applications(VBA)编辑器。然后，转到Insert(插入)>Module(模块)。

将以下宏从Microsoft复制并粘贴到显示的模块窗口中。

Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
   iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
     & "Clicking No will sort in Descending Order", _
     vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
   For i = 1 To Sheets.Count
      For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
         If iAnswer = vbYes Then
            If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
               Sheets(j).Move After:=Sheets(j + 1)
            End If
'
' If the answer is No, then sort in descending order.
'
         ElseIf iAnswer = vbNo Then
            If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
               Sheets(j).Move After:=Sheets(j + 1)
            End If
         End If
      Next j
   Next i
End Sub

VBA编辑器会自动为每个模块命名，并在末尾加上一个数字，例如Module1、Module2等。您只需接受模块的默认名称即可。但是，如果您计划将其他宏添加到工作簿中，最好重命名每个模块，以便您知道它们是什么。我们将重命名我们的模块，向您展示如何使用。