如何在Excel中按單元格值對工作表進行排序？

當我們使用Excel文件時，我們總是按字母，數字或選項卡顏色對工作表進行排序，但是您是否曾嘗試按特定的單元格值對工作表選項卡進行排序？

假設您有一個包含幾十個工作表的工作簿，在每個工作表中，單元格A1具有特定的值，現在您需要根據每個工作表中單元格A1的值遞增對該工作簿中的所有工作表進行排序。 通過本文，您將獲得解決方案。

使用VBA代碼根據單元格值對所有工作表進行排序

使用VBA代碼根據單元格值對所有工作表進行排序

要基於Excel中的單元格值對所有工作表進行排序，對我們來說沒有直接的方法，但是以下VBA代碼可能會幫您一個忙。

1。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

VBA代碼：根據單元格值對所有工作表進行排序

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3。 粘貼代碼後，然後按 F5 鍵來運行此代碼，然後會彈出一個提示框，提醒您選擇要作為表格排序依據的單元格，請參見屏幕截圖：

4。 現在，您可以看到所有工作表已經按照每個工作表中單元格A1的文本值進行了排序。

注意：

1.如果所選單元格中同時包含數字和文本字符串，則包含數字的表將在文本字符串表之前進行排序。

2.如果單元格A1之一中有空白，則相對工作表將在所有工作表的前面排序。

相關文章：

如何在Excel中按字母/字母數字順序對工作表進行排序?

如何在Excel中按顏色對工作表選項卡進行排序？

如何顛倒工作表選項卡的順序？