Function ConvertToNumericChars(rng As Range) As String
    Dim str As String
    Dim i As Long
    Dim j As Long
    Dim result As String
    Dim validChars As String
    validChars = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"

    ' Проходим по каждому символу в переданном диапазоне
    For i = 1 To Len(rng.Value)
        str = Mid(rng.Value, i, 1)
        ' Проверяем каждый символ на наличие в строке validChars
        For j = 1 To Len(validChars)
            If str = Mid(validChars, j, 1) Then
                ' Если найден соответствующий символ, добавляем его порядковый номер к результату
                result = result & j & "" 
                Exit For
            End If
        Next j
    Next i
    
    ' Удаляем последний пробел, если он есть
    If Right(result, 1) = " " Then
        result = Left(result, Len(result) - 1)
    End If
    
    ConvertToNumericChars = result
End Function

=СУММЕСЛИМН(B:B; C:C; "Зарплата"; A:A; ">=01.01.2024"; A:A; "<=31.01.2024")

=ЕСЛИ(СУММПРОИЗВ(($A$2:$A$11=H$28)*($B$2:$B$11=$E29));"+";"")

    ' Обработка окна с согласиями
    On Error Resume Next ' Игнорируем ошибки на этом этапе
    Set data = IE.document.getElementsByClassName("cookie-consent-agree-button") ' поменяйте на правильный класс, если необходимо
    If Not data Is Nothing Then
        If data.Length > 0 Then
            data(0).Click ' Нажимаем кнопку согласия
        End If
    End If
    On Error GoTo 0 ' Включаем обработку ошибок обратно

=ЕСЛИОШИБКА(СУММ(НАИМЕНЬШИЙ(ЕСЛИ(A2:F2<>0;A2:F2);{1;2}));СУММ(A2:F2))

=ЕСЛИОШИБКА(СУММ(НАИМЕНЬШИЙ(ЕСЛИ(A2:F2<>0;A2:F2);{1;2}));СУММ(A2:F2))

=СУММПРОИЗВ(($F$2:$F$10=ЛЕВСИМВ($A2; НАЙТИ("~"; ПОДСТАВИТЬ($A2; "/"; "~"; ДЛСТР($A2)-ДЛСТР(ПОДСТАВИТЬ($A2; "/"; ""))))))*($G$2:$G$10=$B2))

=СУММПРОИЗВ(($F$2:$F$10=$A2)*($G$2:$G$10=$B2))