Перебрать строку в диапазоне и применить условное форматирование на основе ячейки в этой строке ко всему столбцу.

У меня есть следующая таблица на листе Excel, называемая Teams;

КОМАНДА	ТЛА	С	ЦВЕТ
Феррари	ДЕЛАТЬ	ДЕЛАТЬ	EE161F
Рено	РЕН	РЕН	00B0F0
УильямсF1	ХОЧУ	ХОЧУ	000066

Решение проблемы

Я сделал пример на основе ваших данных, используя словарь.

Sub test()
Dim i As Long
Dim LR As Long
Dim FormatRng As Range
Dim Dic As Object
Dim MyKey As Variant
Dim hex As String
Dim Mycolor As Variant
Set Dic = CreateObject("Scripting.Dictionary")
LR = Range("A" & Rows.Count).End(xlUp).Row 'last used row in column A
Set FormatRng = Range("B2:B" & LR) 'the range where I want to apply my CF rules
FormatRng.FormatConditions.Delete
For i = 2 To LR '2 is the first row where my data is
 'loop to create a Dicionary of unique items of C,COLOUR values
 If Dic.Exists(Range("C" & i).Value) = False Then Dic.Add Range("C" & i).Value, Range("D" & i).Value
Next i
'loop trough dictionary to apply cf rules to FormatRng
i = 1
For Each MyKey In Dic.Keys
 hex = Dic(MyKey)
 Mycolor = RGB(Application.Hex2Dec(Left(hex, 2)), Application.Hex2Dec(Mid(hex, 3, 2)), Application.Hex2Dec(Right(hex, 2)))
 With FormatRng
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=MyKey
.FormatConditions(i).Interior.Color = Mycolor
.FormatConditions(i).Font.Color = vbWhite
.FormatConditions(i).Borders.Color = RGB(19, 21, 29)
.FormatConditions(i).StopIfTrue = False
 End With
 i = i + 1
Next MyKey
Set Dic = Nothing
Set FormatRng = Nothing
End Sub

Вывод, который я получаю:

Словарь Excel VBA — полное руководство