Hur sorterar jag ark efter ett cellvärde i Excel?

När vi använder en Excel-fil sorterar vi alltid kalkylbladet efter alfabetiska siffror, siffror eller flikfärger, men har du någonsin försökt sortera arkflikarna efter ett visst cellvärde?

Antag att du har en arbetsbok med dussintals kalkylblad, i varje kalkylblad har cell A1 ett specifikt värde, och nu måste du sortera alla kalkylblad i denna arbetsbok baserat på värdet på cell A1 i varje kalkylblad stigande. Med den här artikeln får du lösningen.

Sortera alla kalkylblad baserat på ett cellvärde med VBA-kod

---

Sortera alla kalkylblad baserat på ett cellvärde med VBA-kod

För att sortera alla kalkylblad baserat på ett cellvärde i Excel finns det inget direkt sätt för oss, men följande VBA-kod kan göra dig en tjänst.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Sortera alla ark baserat på ett cellvärde

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. När du har klistrat in koden, tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja en cell som du vill sortera arken baserat på, se skärmdump:

4. Och nu kan du se att alla kalkylblad har sorterats efter textvärdet för cell A1 i varje kalkylblad stigande.

Anmärkningar:

1. Om det finns både siffror och textsträngar i dina valda celler sorteras arken siffror före textsträngarken.

2. Om det är tomt i en av cellen A1 sorteras det relativa kalkylbladet framför alla ark.

---

Relaterade artiklar:

Hur man sorterar kalkylblad i alfabetisk / alfanumerisk ordning i Excel?

Hur sorterar man kalkylbladets flikar efter färg i Excel?

Hur vänder jag ordningen på kalkylbladets flikar?