просто так изменять заливки нельзя - это приведет к ошибке, (Karataev уже написал об этом) а вот цвет шрифта скопировать можно.
:
Function VLOOKUP2(Table As Range, SearchColumnNum As Integer, SearchValue As Variant, _
N As Integer, ResultColumnNum As Integer)
Dim i As Integer
Dim iCount As Integer
For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
End If
If iCount = N Then
VLOOKUP2 = Table.Cells(i, ResultColumnNum)
Application.Caller.Cells(1, 1).Font.Color = Table.Cells(i, ResultColumnNum).Font.Color
Exit For
End If
Next i
End Function
Или заменить функцию на макрос, но тогда не будет работать отмена действий.
можно попробовать почитать эту тему там Gustav, умудрился изменять и цвет ячейки - но там есть свои нюансы.