如何在 Excel 中按顏色排序工作表標籤？

當處理包含多個工作表的大型 Excel 工作簿時，為工作表標籤分配顏色有助於進行視覺上的分類和組織。然而，Excel 並未提供內建功能來自動按顏色排序工作表標籤。在本文中，我們將探討兩種有效的方法來在 Excel 中按顏色排序工作表標籤。

使用 VBA 程式碼按顏色排序工作表標籤

使用 Kutools for Excel 按顏色排序工作表標籤

使用 VBA 程式碼按顏色排序工作表標籤

使用以下 VBA 程式碼，您可以按顏色對標籤進行排序。請按照以下步驟操作：

1. 點擊「開發工具」>「Visual Basic」，會彈出一個新的「Microsoft Visual Basic for Applications」視窗，點擊「插入」>「模組」，然後在模組中輸入以下程式碼：

VBA：按顏色排序工作表。

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

2. 然後按下「F5」鍵或點擊「執行」按鈕來執行該程式碼。所有的工作表標籤都已按顏色排序完成。

使用 Kutools for Excel 按顏色排序工作表標籤

借助 Kutools，您可以根據標籤的顏色快速重新排列它們，節省時間並避免手動排序或使用 VBA 程式碼排序。在本節中，我們將向您展示如何輕鬆地使用 Kutools for Excel 按顏色排序工作表標籤。

如果您已經安裝了 Kutools for Excel，可以按照以下步驟對工作表標籤進行排序：

1. 點擊「Kutools Plus」>「工作表」>「排序所有表」。

2. 在「排序所有表」對話框中，點擊「顏色排序」按鈕，您將在「排序後」面板中看到新的標籤順序。

3. 然後點擊「確定」以對標籤進行排序。

此功能可以快速重新排列當前工作簿中的所有工作表。它支持多種排序類型，包括「字母排序」、「精確排序」、「顏色排序」和「反向排序」。此外，您還可以上下移動工作表，並重置排序。

在 Excel 中按顏色排序工作表標籤有助於改善組織結構，讓導航大型工作簿變得更加容易。雖然 Excel 缺少內建的相關選項，但本文介紹了兩種實用的方法供您選擇。選擇最適合您的方法，充分利用 Excel 的標籤顏色功能來簡化您的工作流程！如果您對探索更多 Excel 技巧感興趣，我們的網站提供了數千篇教程。

相關文章：

在 Excel 中按字母/字母數字順序排序工作表