Note: The other languages of the website are Google-translated. Back to English

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


puščica modri desni mehurček 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.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (11)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
ne deluje ...
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko to naredim za več stolpcev. Nekatere poskušam razvrstiti po stolpcu K in nekaj po stolpcu M in vem natančne številke listov. Moj stolpec M (ko uporabljam zgornjo kodo) je razvrščen samo po K, ne po M, zato ne deluje. 
Ta komentar je moderator na spletnem mestu minimiziral
mi je delovalo kot čar ... hvala!
Ta komentar je moderator na spletnem mestu minimiziral
deluje dobro, toda kako se lahko izognem vključevanju naslovov (tj. vrstica 1?)
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Lucy,
Če želite razvrstiti vse liste izključiti vrstico z glavo, uporabite spodnjo kodo vba: (Opomba: spremenite sklic na celice glede na vaše potrebe)

Podrazvrsti vse liste()
'Posodobitev Extendoffice
Dim WS kot delovni list
Dim xIntR kot celo število
ActiveSheet.Range("A1:F1").Izberi
On Error Resume Next
Application.ScreenUpdating = Napačno
Za vsak WS v delovnih listih
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Sort Key1:=WS.Range("A2:A" & xIntR), Order1:=xlDescending
Naslednji WS
Application.ScreenUpdating = Res
End Sub

Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
V upanju, da boste to videli...! To deluje čudovito – vendar vključuje celice s formulo, vendar brez podatkov, ustvarja vrzeli v zavihkih in pokvari podatke v vrsticah. Te celice moram obdržati v svojih zavihkih, ko iščejo imena, dodana na 'glavni zavihek' Želim, da razvrsti celice samo z dejanskim imenom - hitra rešitev???
Ta komentar je moderator na spletnem mestu minimiziral
Zelo uporabna koda Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Hej, to je super, hvala lepa za to! Moja edina težava s to kodo je, da se ne izvede na mojem prvem listu. Izvaja se na mojih preostalih listih. Kako naj dosežem, da se to izvede na vseh listih? Kot da koda preskoči prvi list. Vsaka pomoč bi bila zelo cenjena :)
Ta komentar je moderator na spletnem mestu minimiziral
želim razdeliti podatke v več delovnih zvezkov in nato dodati vrednost v enega od stolpcev.

pripravil sem kodo za razdelitev podatkov v delovne zvezke.. vendar potrebujem pomoč pri dodajanju vsote v enega od stolpcev
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko to zaženete, ne da bi vključili vse liste? Tj. pustimo nekaj listov zunaj makra?
Ta komentar je moderator na spletnem mestu minimiziral
Zdelo se mi je, da to ni delovalo. Imam delovni zvezek z 12 listi, razvrščenimi po mesecih v letu, vsak list vsebuje ustrezne podatke o izdelkih podjetij itd. Moj cilj je razvrstiti in filtrirati vse liste v delovnem zvezku. Želel bi imeti en list, ki bi deloval kot nadrejeni list (npr. prvi mesec v letu), na katerem bi izvedel funkcijo filtra ali razvrščanja (npr. A -> Z razvrsti) in da bi drugi listi samodejno sledili enakemu razvrsti ali filtrira. Na primer, ko uporabljam list z oznako "Januar", če na primer izberem stolpec "D", ki vključuje dneve v mesecu, ki jih želim v "naraščajočem" vrstnem redu - ko aktualiziram razvrstitev A -> Z na listu "Januar" , želim, da bi to vplivalo na preostale vse liste v zaporedju (februar-december) z vsemi dnevi v mesecu, razvrščenimi A -> Z. Vsaka sprememba na listu "Januar", ki se nanaša na razvrščanje in filtriranje, bi morala vplivati ​​na stanje listov v delovnem zvezku.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL