Promemoria: Excel 2007, creare una colonna con i valori distinti di un’altra colonna

In Excel 2007 c’è una funzione, da menù, che elimina le righe doppie da una colonna selezionata, sotto “Data” –> “Remove Duplicates”

Questo pezzettino di codice fa si che, all’apertura del file, vengano presi i dati presenti nella colonna A del foglio 1, copiati nella colonna A del foglio 2 ed in quest’ultima elimininate tutte le righe doppie.

Sheets("Sheet1").Select
Range("A1:A5").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A1:A1").Select
ActiveSheet.Paste

Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$5").RemoveDuplicates Columns:=1, Header:=xlNo

Range("A1").Select