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

Hogyan válogathat egyszerre több munkalapon adatokat?

Az Excel programban gyorsan és egyszerűen rendezhetünk adatokat egy munkalapon egy adott oszlop alapján, de megpróbáltad már több munkalapon rendezni az adatokat? Az egyesével történő rendezés időigényes lesz, ez a cikk bemutatom a megoldás egyszerű módját.

Rendezzen adatokat egyszerre több munkalapon VBA kóddal


nyíl kék jobb buborék Rendezzen adatokat egyszerre több munkalapon VBA kóddal

Ha az adatokat a munkafüzet összes lapjának egy oszlopa alapján kívánja rendezni, a következő VBA-kód segíthet.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Adatok rendezése több munkalapon egyszerre:

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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, az összes azonos formátumú lapot az egyes lapok E oszlopa alapján rendezték egyszerre csökkenõ sorrendben.

Megjegyzések: A fenti kódban V: F a rendezni kívánt adattartomány, E az oszlop betűje, amely alapján rendezni akar.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (11)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
nem működik...
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan tudom ezt több oszlopnál működni? Próbálok néhányat a K, másokat M oszlop szerint rendezni, és tudom a pontos lapszámokat. Az M oszlopom (amikor a fenti kódot használom) csak K szerint van rendezve, M szerint nem, ezért nem működik. 
A weboldal moderátora ezt a megjegyzést minimalizálta
nekem varázslatosan működött...köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
jól működik, de hogyan kerülhetem el a címsorok (pl. 1. sor?)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Lucy,
Az összes munkalap rendezéséhez a fejlécsor kivételével, kérjük, alkalmazza az alábbi vba kódot: (Megjegyzés: kérjük, módosítsa a cellahivatkozásokat igényei szerint)

Sub SortAllSheets()
'Frissítés által Extendoffice
Dim WS munkalapként
Dim xIntR As Integer
ActiveSheet.Range("A1:F1").Válassza ki
On Error Resume Next
Application.ScreenUpdating = Hamis
Minden WS In Munkalapokhoz
xIntR = Metszéspont(WS.Used Range, WS.Range("A:F")).Sorok.Count
WS.Range("A2:F" & xIntR).Sort Key1:=WS.Range("A2:A" & xIntR), Order1:=xlCsökkenő
Következő WS
Application.ScreenUpdating = Igaz
End Sub

Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Abban a reményben, hogy ezt látod...! Ez csodálatosan működik – de tartalmaz olyan cellákat, amelyekben képlet van, de nincs adat, ami hézagokat hoz létre a füleken, és összezavarja az adatokat a sorokban. Meg kell tartanom ezeket a cellákat a lapjaimon, amikor megkeresik a „főlaphoz” hozzáadott neveket. Azt akarom, hogy csak a tényleges névvel rendelkező cellákat rendezze – gyors megoldás???
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos kód Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé, ez nagyon jó, köszönöm szépen! Az egyetlen problémám ezzel a kóddal, hogy nem fut le az első lapomon. A megmaradt lapomon működik. Hogyan tudnám ezt végrehajtani az összes lapon? Mintha a kód átugrott volna az első lapon. Bármilyen segítség nagyon hálás lenne :)
A weboldal moderátora ezt a megjegyzést minimalizálta
szeretném felosztani az adatokat több munkafüzetre, majd hozzáadni az értéket az egyik oszlophoz.

elkészítettem a kódot az adatok munkafüzetekben való felosztásához.. de segítségre van szükségem az összeg hozzáadásához az egyik oszlopban
A weboldal moderátora ezt a megjegyzést minimalizálta
Futtathatja ezt az összes munkalap belefoglalása nélkül? Vagyis hagyjon néhány lapot a makróból?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nekem úgy tűnt, nem működik. Van egy munkafüzetem, 12 lapból, az év hónapjai szerint rendezve, minden lapon a megfelelő adatokat tartalmazza a cég termékeiről stb. Célom, hogy a munkafüzetben lévő összes lapot rendezzem és szűrjem. Szeretnék egy olyan lapot, amely szülőlapként működne (pl. az év első hónapja), amelyen szűrő vagy rendezés funkciót végeznék (pl. A -> Z rendezés) és a többi lap automatikusan ugyanazt követné. rendezni vagy szűrni. Például a "Január" feliratú lap használatakor, ha például a "D" oszlopot választom, amely a hónap azon napjait tartalmazza, amelyeket "növekvő" sorrendben akarok - amikor az A -> Z rendezést aktualizálom a "január" lapon , azt szeretném, ha ez a sorrendben (febr.-dec.) a többi lapra érvényes lenne, a hónap minden napja A -> Z rendezve. A "január" lapon végrehajtott, a rendezésre és szűrésre vonatkozó változtatásokat befolyásolja a munkafüzet lapjainak egyenlegét.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi