- Codice: Seleziona tutto
Gradirei che i dati eliminati fossero copiati in un altra colonna dello stesso
foglio e non so come posso fare.
N.B. In Colonna A vi è la progressiva 1,2 3............
In colonna B i nomi e cogmomi
In colonna C i numeri di telefono formattati come testo
In colonna G gradirei che fossero copiati i nomi doppi eliminati dall'elenco
- Codice: Seleziona tutto
Sub EliminaDoppioni()
'Questo codice ordina i dati del range di
'colonna scelto ed elimina le righe che
'contengono dati duplicati.
Application.ScreenUpdating = False
Range("A1:C300").Select 'Considera la zona A1 C300 e senza alterare nomi e numeri di telefono
' da considerare come testo e non numeri
' e partendo in questo caso dalla colonna C li ordina in ordine crescente
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Set currentCell = Worksheets("Elenco").Range("C1") ' ed elimina i doppioni
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
Range("C1").Select
End Sub