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

Cum să sortați datele pe mai multe foi de lucru simultan?

În Excel, putem sorta datele într-o foaie de lucru pe baza unei coloane specifice, rapid și ușor, dar ați încercat vreodată să sortați datele pe mai multe foi de lucru? Pentru a le sorta unul câte unul va fi nevoie de timp, acest articol, voi introduce o modalitate ușoară de rezolvare.

Sortați date pe mai multe foi de lucru simultan cu codul VBA


săgeată albastru dreapta balon Sortați date pe mai multe foi de lucru simultan cu codul VBA

Pentru a sorta datele pe baza unei coloane din toate foile din registrul de lucru, următorul cod VBA vă poate ajuta.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: Sortează datele pe mai multe foi de lucru simultan:

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. Apoi apăsați F5 tasta pentru a rula acest cod, toate foile care au aceeași formatare au fost sortate pe baza coloanei E a fiecărei foi în ordine descrescătoare simultan.

notițe: În codul de mai sus, A: F este intervalul de date pe care doriți să îl sortați, E este litera pe coloană pe care doriți să o sortați pe baza.


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (11)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
nu merge...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum pot face asta să funcționeze pentru mai multe coloane. Încerc să sortez unele după coloana K și altele după coloana M și știu exact numerele foilor. Coloana mea M (când folosesc codul de mai sus) este sortată doar după K, nu după M, așa că, prin urmare, nu funcționează. 
Acest comentariu a fost redus la minimum de moderatorul de pe site
a funcționat ca un farmec pentru mine...mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
funcționează bine, dar cum pot evita includerea titlurilor (adică rândul 1?)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, Lucy,
Pentru a sorta toate foile, excluzând rândul antetului, vă rugăm să aplicați codul vba de mai jos: (Notă: vă rugăm să modificați referințele la celule în funcție de nevoile dvs.)

Sub SortAllSheets()
'Actualizare de Extendoffice
Dim WS As Worksheet
Dim xIntR ca întreg
ActiveSheet.Range("A1:F1").Select
La data de eroare CV următoare
Application.ScreenUpdating = Fals
Pentru fiecare WS din foile de lucru
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range(„A2:F” și xIntR).Sort Key1:=WS.Range(„A2:A” și xIntR), Order1:=xlDescendent
Următorul WS
Application.ScreenUpdating = Adevărat
End Sub

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
In speranta ca vezi asta...! Acest lucru funcționează minunat - dar include celule cu o formulă, dar fără date, creând goluri în file și încurcând datele de pe rânduri. Trebuie să păstrez acele celule în filele mele în timp ce caută nume adăugate la „fila principală”. Vreau să sorteze numai celulele cu un nume real - o remediere rapidă???
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cod foarte util. Mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, este grozav, mulțumesc mult pentru asta! Singura mea problemă cu acest cod este că nu se execută pe prima mea foaie. Se execută pe foile mele rămase. Cum aș face ca acest lucru să se execute pe toate foile? Este ca și cum codul sări peste prima foaie. Orice ajutor ar fi foarte apreciat :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
vreau să împart datele în mai multe cărți de lucru și apoi să adaug valoarea într-una dintre coloane.

Am pregătit codul pentru a împărți datele în registrele de lucru.. dar am nevoie de ajutor pentru a adăuga totalul într-una din coloane
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți rula asta fără a include toate foile? Adică lăsați niște foi din macro?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu părea să funcționeze pentru mine. Am un caiet de lucru cu 12 foi ordonate pe luni ale anului fiecare fisa continand datele corespunzatoare referitoare la produsele companiei etc. Obiectivul meu este sa sortez si sa filtrez toate fisele din registrul de lucru. Aș dori să am o foaie care să acționeze ca foaia părinte (de exemplu, prima lună a anului), pe care aș efectua o funcție de filtrare sau sortare (de exemplu, sortare A -> Z) și să fac automat celelalte foi să urmeze același lucru sortați sau filtrați. De exemplu, când folosesc foaia etichetată „Ianuarie” dacă de exemplu aleg coloana „D” care include zilele din lună pe care le doresc în ordine „crescător” - când actualizez sortarea A -> Z pe foaia „Ianuarie” , vreau ca acest lucru să afecteze restul tuturor foilor din secvența (februarie-dec) cu toate zilele lunii sortate A -> Z. Orice modificare făcută pe foaia "ianuarie" în ceea ce privește sortarea și filtrarea, ar trebui efectuează soldul bilanțurilor din carnetul de muncă.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL