Я пытаюсь создать макрос, который будет выделять дубликаты в столбце, где вводится текст.

У меня есть 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)) 

но это явно неправильно.

Есть идеи?