Wie hebe ich doppelte Werte in verschiedenen Farben in Excel hervor?
In Excel können wir die doppelten Werte in einer Spalte mit einer Farbe einfach hervorheben, indem wir die Bedingte FormatierungManchmal müssen wir jedoch die doppelten Werte in verschiedenen Farben hervorheben, um die doppelten Werte schnell und einfach zu erkennen, wie im folgenden Screenshot gezeigt. Wie können Sie diese Aufgabe in Excel lösen?
Markieren Sie doppelte Werte in einer Spalte mit verschiedenen Farben mithilfe von VBA-Code
Markieren Sie doppelte Werte in einer Spalte mit verschiedenen Farben mithilfe von VBA-Code
Tatsächlich gibt es für uns keine direkte Möglichkeit, diesen Job in Excel zu beenden. Der folgende VBA-Code kann Ihnen jedoch helfen. Gehen Sie wie folgt vor:
1. Wählen Sie die Wertespalte aus, in der Sie Duplikate mit unterschiedlichen Farben hervorheben möchten, und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Markieren Sie doppelte Werte in verschiedenen Farben:
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. Und dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, werden Sie in einem Eingabeaufforderungsfeld daran erinnert, den Datenbereich auszuwählen, in dem die doppelten Werte hervorgehoben werden sollen (siehe Abbildung):
4. Dann klick OK Schaltfläche, alle doppelten Werte wurden in verschiedenen Farben hervorgehoben, siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
