如何在表格的2列中突出显示所有重复项？ （Vba，Excel）

Question

i'm learning vba.

I'm trying to write code which will compare each cell in col 3 to each proceeding cell in the same column, compare each cell in col 5 to each proceeding cell in the same column; and highlight any comparison cell if it, and the cell in the other column of the same row both match the cells they are being compared to in their respective columns.

Code:

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

Sheet: Table

Answer 1

Regarding your last question/comment:

Declare activeCell1 as a variable type Range .

Dim activeCell1 As Range

Then Set the Range object like,

Set activeCell1 = Cells(activeRow, 3)

With the range var properly set you can access the Range.Value property . Repeat this for all of the range type vars then you can use them like,

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