Wie markiere ich Zeilen mit verschiedenen Farben nach Duplikatgruppen?Wie markieren Sie Zeilen mit unterschiedlichen Farben nach Duplikatgruppen?
Es ist mir egal, welche Farben per se verwendet werden, ich möchte nur die doppelten Zeilen eine Farbe, und die nächste Reihe von Duplikate eine andere Farbe.
Zum Beispiel, wenn ich die '1s' grün, die '2s' Blau und so weiter wollte. Es geht bis zu 120 in meiner Spalte.
Vielen Dank.
Probieren Sie diesen einfachen Code aus und ändern Sie ihn nach Ihren Bedürfnissen. Seine ganz selbsterklärend,
Sub dupColors()
Dim i As Long, cIndex As Long
cIndex = 3
Cells(1, 1).Interior.ColorIndex = cIndex
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Cells(i + 1, 1) Then
Cells(i + 1, 1).Interior.ColorIndex = cIndex
Else
If Cells(i + 1, 1) <> "" Then
cIndex = cIndex + 1
Cells(i + 1, 1).Interior.ColorIndex = cIndex
End If
End If
Next i
End Sub
andere Farbe bekommen Sie vba benötigen von einem zum nächsten und so weiter zu erhöhen. Bei der bedingten Formatierung benötigen Sie für jede Farbe eine andere Regel. Wenn Sie einfach zwischen einer Farbe und keiner Farbe wechseln möchten, so dass Duplikate alle gleich sind, finden Sie hier meine Antwort: https://stackoverflow.com/questions/44169577/compare-ells-a3-and-a2-if-equal- nothing-else-color-row-3-Zellen-a-though-f-rep/44169687 # 44169687 –
https://stackoverflow.com/questions/10455366/how-to-highlight-a-cell-using-the- hex-color-value-in-the-cell/11466034 # 11466034 könnte von Interesse sein. – pnuts