Hvordan sorterer jeg ark efter en celleværdi i Excel?
Når vi bruger en Excel-fil, sorterer vi altid regnearkene efter alfabetiske, tal eller fanefarver, men har du nogensinde prøvet at sortere arkfaner efter en bestemt celleværdi?
Antag, at du har en projektmappe med snesevis af regneark, i hvert regneark har celle A1 en bestemt værdi, og nu skal du sortere alle regnearkene i denne projektmappe baseret på værdien af celle A1 i hvert regneark stigende. Med denne artikel får du løsningen.
Sorter alle regneark baseret på en celleværdi med VBA-kode
Sorter alle regneark baseret på en celleværdi med VBA-kode
For at sortere alle regneark baseret på en celleværdi i Excel er der ingen direkte måde for os, men den følgende VBA-kode kan gøre dig en tjeneste.
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Sorter alle ark baseret på en celleværdi
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 indsat koden, skal du trykke på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge en celle, som du vil sortere arkene ud fra, se skærmbillede:
4. Og nu kan du se, at alle regneark er sorteret efter tekstværdien af celle A1 i hvert regneark stigende.
Bemærkninger:
1. Hvis der er både tal og tekststrenge i dine valgte celler, sorteres arkene numre før tekststrengarkene.
2. Hvis der er tomt i en af cellen A1, sorteres det relative regneark foran alle arkene.
Relaterede artikler:
Sådan sorteres regneark i alfabetisk / alfanumerisk rækkefølge i Excel?
Hvordan sorterer man regnearkfaner efter farve i Excel?
Hvordan vender du rækkefølgen på regnearkfaner?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!