Na marjankajovo riešenie som sa nepozeral. Cez VBA nejako takto. Vyber si myškou oblasť, v ktorej chceš vyznačiť duplicity (predpokladám, že sa jedná o jeden stĺpec) a spusti kód. Pokiaľ farbičky nevyhovujú, tak spusti kód znovu.
Sub ColorDups()
Dim myRng As Range, cell As Range
Set myRng = Selection
myRng.Interior.Pattern = xlNone 'vymaze farby
For Each cell In myRng.Cells
If WorksheetFunction.CountIf(myRng, cell) > 1 Then ' existuju duplicity
If WorksheetFunction.Match(cell, myRng, 0) = cell.Row - myRng.Cells(1, 1).Row + 1 Then 'prvy vyskyt duplicity
cell.Interior.Color = RGB(WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255), WorksheetFunction.RandBetween(0, 255))
Else: cell.Interior.Color = myRng.Cells(WorksheetFunction.Match(cell, myRng, 0), 1).Interior.Color
End If
End If
Next cell
End SubNejedná sa síce o podmienené formátovanie ale účel by to plniť mohlo. Je tam malá pravdepodobnosť, že sa farby budú opakovať, ale taká situácia nastať môže. Dá sa to ošetriť, ale už sa mi nechce, úlohu som bral ako malú rozcvičku.
citovat