Сравнение двух столбцов, закрасить с одинаковыми значениями 1 раз

Написать код для макроса, закрашивающего фон ячеек с повторяющимися значениями в столбцах. Закрашивать можно только по одной ячейке с одинаковыми значениями в обоих столбцах одновременно. Уже закрашенную ячейку закрашивать нельзя.

Я написал код, который закрашивает ячейки с одинаковыми значениями, но не могу понять как сделать так, чтобы только 1 раз закрашивалось

Sub ff()
For i = 3 To 131 Step 1
For j = 3 To 131 Step 1
p = 25909
p = p * i * 100
    If Cells(j, 8).Interior.Color = vbWhite Then
        If Cells(i, 2) = Cells(j, 8) Then
        Cells(i, 2).Interior.Color = p
        Cells(j, 8).Interior.Color = p
        End If
    End If
Next j
Next i
End Sub

введите сюда описание изображения


Ответы (0 шт):