Function SumByColor2(SumRange As Range, Optional ColorRange As Range, Optional ColorSample As Range) As Double
'функция суммирует ячейки с определенным цветом
'SumRange - диапазон суммирования
'ColorRange - диапазон раскрашенных ячеек.
'ColorSample - ячейка, цвет которой принимается как образец для суммирования
'за основу взят http://www.planetaexcel.ru/techniques/9/162/
     
    Dim Sum#, iCell&
    Application.Volatile True 'что бы функция пересчитывалась при изменении значений на листе
    Dim MyColor&
    If ColorSample Is Nothing Then MyColor = Application.Caller.Interior.Color Else MyColor = ColorSample.Interior.Color
    If SumRange.Cells.Count > 1000000 Then
        If vbCancel = MsgBox("Задан очень большой диапазон." & vbCrLf & "Подсчет может затянуться.", vbOKCancel) Then Exit Function
    End If
    
    If ColorRange Is Nothing Then Set ColorRange = SumRange
    If SumRange.Cells.Count <> ColorRange.Cells.Count Then
        MsgBox "Диапазон суммирования и диапазон задающий цвета отличаются по размеру." & vbCrLf & "Укажите равные диапазоны.", vbOK, "Не правильная формула в ячейке " & Application.Caller.Address: Exit Function
    End If
    For iCell = 1 To SumRange.Cells.Count
        If ColorRange(iCell).Interior.Color = MyColor Then
            Sum = Sum + SumRange(iCell).Value
        End If
    Next iCell
    
    SumByColor2 = Sum
End Function

=ПОЛУЧИТЬ.ЯЧЕЙКУ(63;Лист1!A3)

=ПОЛУЧИТЬ.ЯЧЕЙКУ(63;СМЕЩ(Лист1!$A$1;;Ч(ИНДЕКС(СТОЛБЕЦ(Лист1!$C:$L)-1;));))

=СУММПРОИЗВ((цв=цв0)*C3:L3)

'    If SumRange.Cells.Count <> ColorRange.Cells.Count Then
'        MsgBox "Диапазон суммирования и диапазон задающий цвета отличаются по размеру." & vbCrLf & "Укажите равные диапазоны.", vbOK, "Не правильная формула в ячейке " & Application.Caller.Address: Exit Function
'    End If