Как выделить все дубликаты в 2 столбцах таблицы? (Vba, excel)

Question

Я изучаю vba.

Я пытаюсь написать код, который будет сравнивать каждую ячейку в столбце 3 с каждой текущей ячейкой в ​​том же столбце, сравнить каждую ячейку в столбце 5 с каждой исходящей ячейкой в ​​том же столбце; и выделите любую ячейку сравнения, если она, а ячейка в другом столбце той же строки совпадают с ячейками, в которых они сравниваются, в соответствующих столбцах.

Код:

Sub comparisonDuplicateHighlight() 

Set rng = Rows 

Dim activeRow As Integer 
    activeRow = 2 
Dim activeCell1 As Cells 
    activeCell1 = Cells(activeRow, 3) 
Dim activeCell2 As Cells 
    acriveCell2 = Cells(activeRow, 5) 
Dim comparisonRow As Integer 
    comparisonRow = activeRow + 1 
Dim comparisonCell1 As Cells 
    comparisonCell1 = Cells(comparisonRow, 3) 
Dim comparisonCell2 As Cells 
    comparisonCell2 = Cells(comparisonRow, 5) 

    For rng = 2 To 25 

    If comparisonCell1.Value = activeCell1.Value And comparisonCell2.Value = activeCell2.Value Then 
     comparisonCell1.Interior.ColorIndex = 6 
     comparisonCell2.Interior.ColorIndex = 6 

    Else 
     comparisonRow1 = comparisonRow1 + 1 
     comparisonRow2 = comparisonRow2 + 1 

    End If 

End Sub 

Лист: Table

Answer 1

Что касается последнего вопроса/комментария:

Объявить activeCell1 как переменную типа Range.

Dim activeCell1 As Range 

Тогда SetRange object как,

Set activeCell1 = Cells(activeRow, 3) 

С диапазона вар правильно установить вы можете получить доступ к Range.Value property. Повторите это для всех типов диапазона vars, то вы можете использовать их как:

If comparisonCell1.Value = activeCell1.Value And comparisonCell2.Value = activeCell2.Value Then