rewes, 12/05/2009 10.37:
domandona
ho un elenco di articoli in un foglio excel
sono codici alfanumerici (saranno 10.000 codici)
li ho già ordinati in una colonna. Volevo sapere se c'è una formula che permette di individuare-evidenziare i codici uguali.
sono scettico, ma non si sa mai
grazie
Prova cosi':
codice:
Sub EliminaRigheDoppie()
Dim i&, j&, ULTIMA&, PRIMA&, COL%
COL = 1 'la colonna su cui eseguire il confronto
PRIMA = 1 'questa e' la riga da cui iniziare a cercare
i = PRIMA
Do 'ora cerca l'ultima riga significativa (cioe' <> "")
If Cells(i, COL) = "" Then ULTIMA = i - 1: Exit Do
i = i + 1
Loop
i = PRIMA 'confrontiamo questa riga....
Do
j = ULTIMA 'con tutte le successive, partendo dal fondo
Do
If Cells(i, COL) = Cells(j, COL) Then
'sono uguali, seleziona l'intera riga ed eliminala !
Rows(j).Select
Selection.Delete Shift:=xlUp
ULTIMA = ULTIMA - 1 'abbiamo eliminato una riga
End If
j = j - 1
Loop Until j <= i
i = i + 1
Loop Until i >= ULTIMA
End Sub
Ovviamente e' da adattare alle tue esigenze, tieni conto che cosi':
determina l'ultima riga su cui intervenire in base alla prima riga vuota;
il confronto tra righe viene fatto solo sul contenuto di una colonna, e sulla base della perfetta uguaglianza tra i contenuti ("cane" e "Cane" qui sono considerati diversi)