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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!