Hur sorterar jag data på flera kalkylblad samtidigt?

I Excel kan vi sortera data i ett kalkylblad baserat på en specifik kolumn snabbt och enkelt, men har du någonsin försökt sortera data över flera kalkylblad? Att sortera dem en efter en kommer att vara tidskrävande, den här artikeln kommer jag att introducera ett enkelt sätt att lösa det.

Sortera data på flera kalkylblad samtidigt med VBA-kod

Sortera data på flera kalkylblad samtidigt med VBA-kod

För att sortera data baserat på en kolumn i alla ark i din arbetsbok kan följande VBA-kod hjälpa dig.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

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

VBA-kod: Sortera data på flera kalkylblad samtidigt:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Tryck sedan på F5 för att köra den här koden, har alla ark som har samma formatering sorterats baserat på kolumn E på varje ark i fallande ordning samtidigt.

Anmärkningar: I ovanstående kod, A: F är dataintervallet som du vill sortera, E är kolumnbokstaven som du vill sortera utifrån.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!