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

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

除了通过对工作表应用颜色来组织工作表选项卡外，只要您已将自定义名称应用到工作表中，也可以按字母或字母数字对它们进行排序。不幸的是，按字母顺序排序工作表选项卡不是内置到Excel中的，但您可以向工作簿中添加宏，以便您可以按升序或降序对选项卡进行排序。我们将向您展示如何将Microsoft支持站点上可用的宏添加到Excel工作簿中，该宏将对工作表选项卡进行排序。

首先，按Alt+F11打开Microsoft Visual Basic for Applicati***（VBA）编辑器。然后，进入**>模块。

将以下宏从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等。您只需接受模块的默认名称即可。但是，如果您计划将其他宏添加到工作簿中，最好重命名每个模块，以便知道它们是什么。我们将重命名我们的模块，向您展示如何。

要重命名模块，请在左窗格的“属性”下的模块名称框中选择文本。

在“名称”框中键入模块的名称，然后按Enter键。请注意，模块名不能包含空格。

模块的名称在左侧窗格中“项目”下的“模块”列表中更改。

进入“文件”>“关闭”并返回到Microsoft Excel，关闭VBA编辑器。

现在，我们将运行宏对选项卡进行排序。按Alt+F8访问“宏”对话框上的宏列表。选择列表中的宏（在本例中只有一个宏），然后单击“运行”。

将显示以下对话框，允许您选择是按升序还是降序对工作表排序。我们想按升序对它们排序，所以单击“是”。

工作表选项卡现在按字母顺序排列。

您添加的宏现在是工作簿的一部分，但当您保存它时，可能会看到以下对话框。这是因为您将工作簿保存为.xlsx文件，该文件是不包含宏的普通Excel工作簿格式。若要在工作簿中包含宏并能够运行它们，必须将工作簿另存为启用宏的工作簿或.xl**文件。为此，请在此对话框中单击“否”。

将显示“另存为”对话框。如果您不在启用宏的工作簿文件夹中，请导航到要保存该工作簿的位置。从“另存为类型”下拉列表中选择“Excel启用宏的工作簿（*.xl**）”。

单击“保存”。

如果不将工作簿另存为启用宏的工作簿（.xl**文件），则添加的宏将被删除。您可能需要删除工作簿的.xlsx版本，这样，如果要添加更多工作表选项卡并使用宏对其重新排序，就不会忘记使用工作簿的.xl**版本。如果不想再使用宏，则可以再次将工作簿另存为.xlsx文件。