Kako razvrstiti podatke na več delovnih listih hkrati?

V Excelu lahko podatke na delovnem listu hitro in enostavno razvrstimo na podlagi določenega stolpca, vendar, ali ste že kdaj poskušali podatke razvrstiti po več delovnih listih? Če jih boste razvrstili enega za drugim, bo zamudno, v tem članku bom predstavil preprost način za njegovo reševanje.

Razvrstite podatke na več delovnih listih hkrati s kodo VBA

Razvrstite podatke na več delovnih listih hkrati s kodo VBA

Če želite podatke razvrstiti po enem stolpcu na vseh listih delovnega zvezka, vam lahko pomaga naslednja koda VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Razvrsti podatke na več delovnih listih hkrati:

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. Nato pritisnite F5 za zagon te kode so bili vsi listi z enakim oblikovanjem razvrščeni glede na stolpec E vsakega lista v padajočem vrstnem redu hkrati.

Opombe: V zgornji kodi, A: F je obseg podatkov, ki ga želite razvrstiti, E je črka stolpca, po kateri želite razvrstiti.

Odklenite Excel Magic z Kutools AI

• Pametna izvedba: Izvajajte celične operacije, analizirajte podatke in ustvarjajte grafikone – vse poganjajo preprosti ukazi.
• Formule po meri: Ustvarite prilagojene formule za poenostavitev delovnih tokov.
• Kodiranje VBA: Napišite in implementirajte kodo VBA brez truda.
• Razlaga formule: Z lahkoto razumejte zapletene formule.
• Prevajanje besedila: Odpravite jezikovne ovire v vaših preglednicah.

Izboljšajte svoje zmogljivosti Excela z orodji, ki jih poganja AI. Prenesi zdaj in izkusite učinkovitost kot še nikoli prej!