Πώς να επισημάνετε διπλές τιμές σε διαφορετικά χρώματα στο Excel;

Στο Excel, η επισήμανση διπλότυπων τιμών σε μια στήλη με ένα χρώμα είναι απλή, χρησιμοποιώντας τη Μορφοποίηση υπό όρους. Ωστόσο, υπάρχουν φορές που μπορεί να χρειαστεί να επισημάνετε διπλότυπα σε διαφορετικά χρώματα για ευκολότερη αναγνώριση, όπως φαίνεται στο στιγμιότυπο οθόνης. Αυτός ο οδηγός εξηγεί πώς να ολοκληρώσετε αυτήν την εργασία χρησιμοποιώντας κώδικα VBA.

Επισημάνετε τις διπλές τιμές σε μια στήλη με διαφορετικά χρώματα χρησιμοποιώντας τον κώδικα VBA

Επισημάνετε τις διπλές τιμές σε μια στήλη με διαφορετικά χρώματα χρησιμοποιώντας τον κώδικα VBA

Δεν υπάρχει άμεσος τρόπος για να το πετύχετε αυτό στο Excel, αλλά ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει. Ακολουθήστε αυτά τα βήματα:

1. Επιλέξτε τη στήλη των τιμών όπου θέλετε να επισημάνετε τα διπλότυπα με διαφορετικά χρώματα και, στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Επισημάνετε διπλές τιμές σε διαφορετικά χρώματα:

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. πάτα το F5 κλειδί για την εκτέλεση αυτού του κώδικα. Θα εμφανιστεί ένα πλαίσιο προτροπής που σας ζητά να επιλέξετε το εύρος δεδομένων για να επισημάνετε διπλές τιμές, δείτε στιγμιότυπο οθόνης:

4. Κάντε κλικ στο OK κουμπί και όλες οι διπλές τιμές θα επισημανθούν με διαφορετικά χρώματα, δείτε στιγμιότυπο οθόνης: