Excel VBA Подсветить дубликаты в активной колонке
Я пытаюсь создать макрос, который будет выделять дубликаты в столбце, где вводится текст.
У меня есть 54 столбца и я хочу выделить дубликаты в каждом столбце при вводе текста. Сценарий таков: если в столбце B дважды ввести «STAPLES», ячейки (B3, B22) будут выделены. Я хочу макрос, который может сделать это для каждого столбца, поэтому, если «STAPLES» вводится в столбец E только один раз, ничего не должно произойти.
Использование условного форматирования = COUNTIF не обязательно помогает (из-за процесса копирования столбцов в новые таблицы).
У меня уже есть этот макрос:
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
Это работает нормально, но только для одного столбца ("C").
Как установить диапазон для активного столбца?
Я пытался изменить Rng на
'Set Rng = Range(ActiveCell,ActiveCell.Column.End(xlUp))
но это явно неправильно.
Есть идеи?