Excel VBA Podświetl duplikaty w aktywnej kolumnie
Próbuję utworzyć makro, które podświetli duplikaty w kolumnie, w której wpisywany jest tekst.
Mam 54 kolumny i chcę podświetlić duplikaty w każdej kolumnie po wprowadzeniu tekstu. Scenariusz jest następujący: jeśli „ZSZYWKI” zostaną wprowadzone dwukrotnie w kolumnie B, wówczas komórki (B3, B22) zostaną podświetlone. Chcę makro, które może to zrobić dla każdej kolumny, więc jeśli „ZSZYWKI” zostaną wprowadzone do kolumny E tylko raz nic się nie powinno stać.
Korzystanie z formatowania warunkowego = LICZ.JEŻ niekoniecznie pomaga (ze względu na przepływ pracy podczas kopiowania kolumn do nowych arkuszy).
Mam już to makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Dim cel As Range
'Test for duplicates in a single column
'Duplicates will be highlighted in red
Set Rng = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp))
For Each cel In Rng
If WorksheetFunction.CountIf(Rng, cel.Value) > 1 Then
cel.Interior.ColorIndex = 3
End If
Next cel
End Sub
Działa dobrze, ale dotyczy tylko jednej kolumny („C”).
Jak ustawić zakres jako aktywną kolumnę?
Próbowałem zmienić Rng na
'Set Rng = Range(ActiveCell,ActiveCell.Column.End(xlUp))
ale to oczywiście źle.
Jakieś pomysły?