excel按拼音顺序排序(2015年4月14日)

Excel按语音顺序排序

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

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

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

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

首先，请按Alt + F11打开Microsoft Visual Basic应用程序（VBA）编辑器。然后，转到“插入”>“模块”。

首先，按Alt + F11打开Microsoft Visual Basic应用程序（VBA）编辑器。然后，转到“插入”>“模块”。

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

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

VBA编辑器将在每个模块的末尾自动命名一个数字，例如Module1，Module2等。您可以简单地接受模块的默认名称。但是，如果您打算将其他宏添加到工作簿中，则最好重命名每个模块，以便您知道它们是什么。我们将重命名该模块以向您展示如何进行。

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

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

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

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

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

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

通过转到文件>关闭并返回到Microsoft Excel，关闭VBA编辑器。

通过转到file>关闭VBA编辑器，然后返回到Microsoft Excel。

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

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

将显示以下对话框，您可以选择是否要对工作表进行升序或降序排序。我们想按升序对它们进行排序，因此我们单击“是”。

将显示以下对话框，您可以选择是按升序还是降序对工作表进行排序。我们想按升序对它们进行排序，因此我们单击“是”。

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

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

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

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

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

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

点击“保存”。

点击“保存”。

如果您不将工作簿另存为启用宏的工作簿（.xlsm文件），则添加的宏将被删除。您可能想要删除工作簿的.xlsx版本，因此，如果要添加更多工作表选项卡并使用宏再次对其进行排序，请不要忘记使用工作簿的.xlsm版本。如果您不想再使用宏，则始终可以再次将工作簿另存为.xlsx文件。

如果您不将工作簿另存为启用宏的工作簿（.xlsm文件），则将删除添加的宏。您可能要删除工作簿的.xlsx版本，因此，如果要添加更多工作表选项卡并使用宏再次对它们进行排序，请不要忘记使用工作簿的.xlsm版本。如果您不再希望使用宏，则可以始终将工作簿另存为.xlsx文件。

翻译自：

Excel按语音顺序排序

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shumachanpin/article-377596-1.html