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

Come ordinare i dati su più fogli di lavoro contemporaneamente?

In Excel, possiamo ordinare i dati in un foglio di lavoro in base a una colonna specifica in modo rapido e semplice, ma hai mai provato a ordinare i dati su più fogli di lavoro? Ordinarli uno per uno richiederà molto tempo, in questo articolo introdurrò un modo semplice per risolverlo.

Ordina i dati su più fogli di lavoro contemporaneamente con il codice VBA


freccia blu freccia destra Ordina i dati su più fogli di lavoro contemporaneamente con il codice VBA

Per ordinare i dati in base a una colonna in tutti i fogli della cartella di lavoro, il seguente codice VBA può aiutarti.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: ordina i dati su più fogli di lavoro contemporaneamente:

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. Quindi premere F5 chiave per eseguire questo codice, tutti i fogli che hanno la stessa formattazione sono stati ordinati in base alla colonna E di ciascun foglio in ordine decrescente contemporaneamente.

Note:: Nel codice sopra, A: F è l'intervallo di dati che desideri ordinare, E è la lettera della colonna su cui si desidera ordinare in base.


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (11)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Non funziona ...
Questo commento è stato fatto dal moderatore sul sito
Come posso farlo funzionare per più colonne. Sto cercando di ordinarne alcuni in base alla colonna K e altri in base alla colonna M e conosco i numeri esatti del foglio. La mia colonna M (quando utilizzo il codice sopra) viene ordinata solo per K, non per M, quindi quindi non funziona. 
Questo commento è stato fatto dal moderatore sul sito
ha funzionato come un incantesimo per me... grazie!
Questo commento è stato fatto dal moderatore sul sito
funziona bene ma come posso evitare di includere le intestazioni (es. riga 1?)
Questo commento è stato fatto dal moderatore sul sito
Ciao, Lucia,
Per ordinare tutti i fogli escludendo la riga di intestazione, applicare il codice vba sottostante: (Nota: modificare i riferimenti delle celle in base alle proprie esigenze)

Sub OrdinaTuttiI Fogli()
'Aggiorna entro Extendoffice
Dim WS come foglio di lavoro
Dim xIntR come intero
ActiveSheet.Range("A1:F1").Seleziona
On Error Resume Next
Application.ScreenUpdating = False
Per ogni WS nei fogli di lavoro
xIntR = Interseca(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Sort Key1:=WS.Range("A2:A" & xIntR), Order1:=xlDescending
Il prossimo WS
Application.ScreenUpdating = True
End Sub

Per favore, prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Nella speranza che tu veda questo...! Funziona meravigliosamente, ma include celle con una formula ma senza dati, creando spazi vuoti nelle schede e confondendo i dati sulle righe. Ho bisogno di mantenere quelle celle nelle mie schede mentre cercano i nomi aggiunti alla "scheda principale", voglio che ordini solo le celle con un nome reale - una soluzione rapida???
Questo commento è stato fatto dal moderatore sul sito
Codice molto utile Grazie
Questo commento è stato fatto dal moderatore sul sito
Ehi, è fantastico, grazie mille per questo! Il mio unico problema con questo codice è che non viene eseguito sul mio primo foglio. Viene eseguito sui miei fogli rimanenti. COME posso farlo eseguire su tutti i fogli? È come se il codice saltasse il primo foglio. Qualsiasi aiuto sarebbe molto apprezzato :)
Questo commento è stato fatto dal moderatore sul sito
Voglio dividere i dati in più cartelle di lavoro e quindi aggiungere il valore in una delle colonne..

ho preparato il codice per dividere i dati nelle cartelle di lavoro... ma ho bisogno di aiuto per aggiungere il totale in una delle colonne
Questo commento è stato fatto dal moderatore sul sito
Puoi eseguirlo senza includere tutti i fogli? Cioè lasciare alcuni fogli fuori dalla macro?
Questo commento è stato fatto dal moderatore sul sito
Questo non sembrava funzionare per me. Ho una cartella di lavoro con 12 fogli ordinati per mesi dell'anno ogni foglio contenente i dati corrispondenti relativi ai prodotti delle aziende ecc. Il mio obiettivo è ordinare e filtrare tutti i fogli della cartella di lavoro. Vorrei avere un foglio che fungesse da foglio principale (ad es. il primo mese dell'anno), su cui eseguirei un filtro o una funzione di ordinamento (ad es. Ordinamento A -> Z) e fare in modo che gli altri fogli seguano automaticamente lo stesso ordina o filtra. Ad esempio, quando si utilizza il foglio etichettato "Gennaio" se ad esempio scelgo la colonna "D" che include i giorni del mese che voglio in ordine "crescente" - quando si attualizza l'ordinamento A -> Z sul foglio "gennaio" , voglio che questo avvenga sul resto di tutti i fogli nella sequenza (febbraio-dicembre) con tutti i giorni del mese ordinati A -> Z. Qualsiasi modifica apportata al foglio "gennaio" in relazione all'ordinamento e al filtraggio, dovrebbe effettuare il saldo dei fogli nella cartella di lavoro.
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL