In questo articolo, creeremo una macro per ordinare i dati nel foglio per data di nascita e non considereremo l'anno durante l'ordinamento dei dati.
I dati grezzi sono costituiti da due colonne, una contiene il nome e la seconda colonna contiene la data di nascita.
Spiegazione logica
Abbiamo creato una macro, "sorting_names_by_birthday" che ordinerà i dati.
In questa macro inseriamo innanzitutto delle formule nella colonna C dove troviamo la differenza tra la data di nascita e la prima data del loro anno di nascita. Quindi ordiniamo i dati per Nome per ordinare i dati in ordine alfabetico in modo che se due candidati hanno la stessa data di nascita, i loro nomi dovrebbero apparire in ordine alfabetico. Quindi ordiniamo i dati calcolando la differenza in ordine crescente per ordinare i dati per data di nascita. Dopo aver ordinato i dati, per eliminare le formule dalla colonna C, eliminare l'intera colonna C.
Per eseguire la macro, premi Alt + F8 o vai alla scheda Sviluppatore> fai clic su Macro.
Si prega di seguire sotto per il codice
Option Explicit Sub sorting_names_by_birthday() 'Disabilitazione aggiornamento schermo Application.ScreenUpdating = False Dim Last_Row As Long 'Trovare l'ultima riga Last_Row = ActiveCell.SpecialCells(xlCellTypeLastCell).Row Range("C16").Select 'Ottenere i giorni dell'anno' Sottrazione della prima data dell'anno dalla data del compleanno ActiveCell.FormulaR1C1 = "=RC[-1]-DATE(YEAR(RC[-1]),1,1)" 'Trascinando la formula Range("C16:C" & Last_Row).Select Selection.FillDown 'Ordina i dati prima per colonna A poi per colonna C Range("A15").CurrentRegion.Sort _ key1:=Range("C15"), order1:=xlAscending, _ key2:=Range ("A15"), order2:=xlAscending, _ Header:=xlYes 'Eliminazione della colonna C Columns("C").Delete Range("A15").Select End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica