=ВПР(C2;{"Очень медленно";20:"Медленно";40:"Средне";60:"Быстро";80:"Очень быстро";100};2;0)

=СУММПРОИЗВ(--(ГОД(даты!$A$2:$A$20)=A2))

Option Explicit

'1. Ф.И.О. Литры Время взять в массив, чтоб там можно было обнулять не повредив источник.
'2. Шаг цикла по таблице1, в нём цикл по массиву, проверяем есть ли литры, затем фио, затем время - если ОК, то суммируем в переменной, обнуляем литры в массиве.
'3. Записываем из переменной в таблицу1, переменную обнуляем.
'4. Шаг цикла по таблице1, и т.д.

Sub tt()
    Dim a, y&, i&, ii&, x#

    a = Range("Таблица5712").Value

    For i = 2 To Range("Таблица4").Rows.Count
        For ii = 2 To UBound(a)
            If a(ii, 2) > 0 Then
                If a(ii, 1) = Cells(i, 1) Then
                    If a(ii, 3) >= Cells(i, 2) Then
                        If a(ii, 3) <= Cells(i, 3) Then
                            x = x + a(ii, 2): a(ii, 2) = 0
                        End If
                    End If
                End If
            End If
        Next
        Cells(i, 7) = x: x = 0
    Next
End Sub

=ВПР($B$5;$A$11:$C$40;ВПР(B4;{"USD";2:"EUR";3};2;0);)

=ВПР(""&A2;""&raw!$A$1:$C$7;3;ЛОЖЬ)

=ВПР(СЖПРОБЕЛЫ(A2);СЖПРОБЕЛЫ(raw!$A$1:$C$7);3;ЛОЖЬ)

=ВПР(B2;{30;0,8:60;0,9:120;1:250;1,1:500;0,9};2;1)

Public Function ExtractNumber(s As String)
    Dim i As Integer, str As String, a$
    For i = 1 To Len(s)
        a = Mid(s, i, 1)
        If InStr(1, "1234567890,", a) Then str = str & a
    Next
    ExtractNumber = str
End Function

Function Num(txt As String)    ' As Long
    Dim N&
    For N = 1 To Len(txt)
        If Mid(txt, N, 1) Like "#" Then Num = Num & Mid(txt, N, 1)
    Next N
End Function

Function GetNumeric(t As String)
    Dim j As Integer, l As String
    For j = 1 To Len(t)
        If IsNumeric(Mid(t, j, 1)) Then l = l & Mid(t, j, 1)
    Next j
    GetNumeric = Val(l)
End Function