如何在 Excel 中按字母/字母數字順序排列工作表？

在 Excel 中按字母或字母數字順序排列工作表，可以大大提升工作簿的組織性和效率，特別是在處理大量工作表時。本指南將帶您了解幾種方法來實現這一目標，滿足不同用戶對 Excel 的熟悉程度。

使用 VBA 程式碼按字母/字母數字順序排列工作表

使用 Kutools for Excel 按字母/字母數字順序排列工作表

使用 VBA 程式碼按字母/字母數字順序排列工作表

Microsoft 支援中心提供了一個用於按字母順序排列工作表的巨集。按照以下步驟應用它：

1. 按住「ALT」+「F11」鍵，打開「Microsoft Visual Basic for Applications」視窗。

2. 點擊「插入」>「模組」，然後在 「模組」視窗中粘貼以下巨集。

VBA：按字母/字母數字順序排列工作表

Sub SortWorkBook()
'Updateby Extendoffice
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. 按下「F5」鍵運行此巨集。在隨後出現的提示框中，點擊「是」，所有工作表將按升序字母順序排列；點擊「否」，所有工作表將按降序字母順序排列。

使用 Kutools for Excel 按字母/字母數字順序排列工作表

使用「Kutools for Excel」的「排序工作表」功能簡化您的工作流程！無論您有多少工作表，它都能輕鬆幫助您進行整理。它支持多種排序類型，包括字母排序、字母數字排序、顏色排序和反向排序。此外，您可以根據需要上下移動工作表，並輕鬆重置排序。讓您的 Excel 工作更高效便捷！

1. 點擊「Kutools Plus」>「工作表」>「排序工作表」。參見截圖：

2. 在「排序工作表」對話框中，在右側窗格中選擇您需要的一種排序類型，例如「字母排序」、「字母數字排序」，然後點擊「確定」按鈕。

然後，所有工作表都將根據指定的排序類型進行排列。

本文提供了兩種按字母或字母數字順序排列工作表的方法：VBA 程式碼和 Kutools for Excel。選擇最適合您需求的方法。VBA 程式碼方法適合熟悉腳本編寫的人員，並提供高度可定制的解決方案。同時，Kutools for Excel 提供了用戶友好的「排序工作表」工具，無需任何編碼即可快速高效地排列所有工作表。如果您有興趣探索更多 Excel 技巧，我們的網站提供了數千個教程。

相關文章：

按顏色排序工作表標籤