Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel VBA: Evidenziare Valori uguali

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel VBA: Evidenziare Valori uguali

Postdi SebNan » 27/01/15 12:14

Ciao a tutti, ho un file excel con n righe ed n colonne dove nella colonna F ho una serie di indirizzi mail e vorrei evidenziare in giallo le celle che contengono la mail identiche. Ho provato questo script, solo che ho bisogno di impostare un range variabile anziche uno fisso (F1:F10), come posso fare?
Ho provato a dichiarare il RNG = Range ("F" & Rows.Count).End(xlUp).Row ma mi da errore.
Grazie e buona giornata
Codice: Seleziona tutto
Sub find_dups()
Dim rng as Range, c As Range, cella As Range, firstaddress, f As Long

    set rng = [F1:F10]

    For Each cella In rng
        f = 0
        If cella.Interior.ColorIndex <> 6 Then
            With rng
                Set c = .Find(cella, LookIn:=xlValues)
                If Not c Is Nothing Then
                    f = f + 1
                    If f > 1 Then
                        firstaddress = c.Address
                        Do
                            c.Interior.ColorIndex = 6
                            Set c = .FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> firstaddress
                    End If
                End If
            End With
        End If
    Next
End Sub
SebNan
Utente Junior
 
Post: 28
Iscritto il: 07/12/12 14:32

Sponsor
 

Re: Excel VBA: Evidenziare Valori uguali

Postdi Flash30005 » 05/02/15 08:22

Prova questa macro
Codice: Seleziona tutto
Sub TrovaDupl()
UR1 = Range("F" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1 - 1
For RR2 = RR1 + 1 To UR1
If Range("F" & RR1).Value = Range("F" & RR2).Value Then
Range("F" & RR1).Interior.ColorIndex = 6
Range("F" & RR2).Interior.ColorIndex = 6
End If
Next RR2
Next RR1
End Sub


ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Excel VBA: Evidenziare Valori uguali":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti