Использование для каждого цикла для копирования цвета условного форматирования

Question

Я пытаюсь применить цвет условного форматирования одной ячейки к другой ячейке. Я делаю это для того, чтобы создать тепловую карту. Однако значения в тепловой карте не являются значениями, которые соответствуют критериям условного форматирования (поэтому я копирую цвет из ячеек, которые фактически соответствуют критериям). Я знаю, что могу сделать этот процесс, используя цикл, но я изо всех сил пытаюсь это сделать.

Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim cell As Range
    cnt = 2
    For Each cell In Range("J78:L81")
        Me.cell.Interior.Color = Me.Range("H" & cnt).DisplayFormat.Interior.Color
        cnt = cnt + 2
    Next cell

End Sub

Редактор выдает сообщение об ошибке компиляции, говорящее «Метод или элемент данных не найден», и указывает на .cell в Me.cell.Interior.Color

Answer 1

Оператор Me должен находиться перед Range("J78:L81") вместо Cell.

For Each cell In Me.Range("J78:L81")
    cell.Interior.Color = Me.Range("H" & cnt).DisplayFormat.Interior.Color