Cum să evidențiați valorile duplicate în diferite culori în Excel?

În Excel, evidențierea valorilor duplicate într-o coloană cu o singură culoare este simplă folosind Formatarea condiționată. Cu toate acestea, există momente în care poate fi necesar să evidențiați duplicatele în culori diferite pentru o identificare mai ușoară, așa cum se arată în captură de ecran. Acest ghid explică cum să realizați această sarcină folosind codul VBA.

Evidențiați valorile duplicate într-o coloană cu culori diferite utilizând codul VBA

Evidențiați valorile duplicate într-o coloană cu culori diferite utilizând codul VBA

Nu există o modalitate directă de a realiza acest lucru în Excel, dar codul VBA de mai jos vă poate ajuta. Urmați acești pași:

1. Selectați coloana de valori în care doriți să evidențiați duplicatele cu culori diferite, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: evidențiați valorile duplicate în diferite culori:

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. apasă pe F5 tasta pentru a rula acest cod. Va apărea o casetă de solicitare care vă va cere să selectați intervalul de date pentru a evidenția valorile duplicate, vedeți captura de ecran:

4. clic pe OK butonul și toate valorile duplicate vor fi evidențiate în culori diferite, vezi captura de ecran: