Come evidenziare i valori duplicati in diversi colori in Excel?
In Excel, possiamo facilmente evidenziare i valori duplicati in una colonna con un colore utilizzando il Formattazione condizionale, ma, a volte, è necessario evidenziare i valori duplicati in diversi colori per riconoscere i duplicati rapidamente e facilmente come mostrato nella seguente schermata. Come hai potuto risolvere questa attività in Excel?
Evidenzia i valori duplicati in una colonna con colori diversi utilizzando il codice VBA
Evidenzia i valori duplicati in una colonna con colori diversi utilizzando il codice VBA
In effetti, non esiste un modo diretto per completare questo lavoro in Excel, ma il codice VBA di seguito può aiutarti, per favore fai come segue:
1. Seleziona la colonna di valori in cui desideri evidenziare i duplicati con colori diversi, quindi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clicchi inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: evidenzia i valori duplicati in diversi colori:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. E poi premere F5 chiave per eseguire questo codice e una finestra di messaggio ti ricorderà di selezionare l'intervallo di dati in cui desideri evidenziare i valori duplicati, vedi screenshot:
4. Quindi fare clic OK pulsante, tutti i valori duplicati sono stati evidenziati in diversi colori, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!