Sub ЗалитьЯчейкиПоЦветам()
    Dim lastRow As Long
    Dim i As Long
    Dim colorCode As String

    ' Находим последнюю заполненную строку в столбце Q
    lastRow = Cells(Rows.Count, "Q").End(xlUp).Row

    ' Проходим по всем строкам от 1 до последней
    For i = 1 To lastRow
        ' Получаем код цвета из столбца Q
        colorCode = Cells(i, "Q").Value
        
        ' Проверяем, является ли код цвета правильным числом
        If IsNumeric(colorCode) Then
            ' Заливаем ячейку в столбце A цветом, указанным в столбце Q
            Cells(i, "A").Interior.Color = CLng(colorCode)
        Else
            ' Если код цвета не числовой, можно, например, очистить заливку
            Cells(i, "A").Interior.ColorIndex = xlNone
        End If
    Next i

    MsgBox "Заливка завершена!"
End Sub

=ЕСЛИ(B9<1; РАНГ(B9; $B$2:$B$11; 1); "")

=ЕСЛИ(C4="HGN";"HY.";"")&ЕСЛИ(B4="воздушный выключатель";"ACB.";ЕСЛИ(B4="АВ в литом корпусе";"MCCB.";""))&ЕСЛИ(E4="A";"A.";ЕСЛИ(E4="B";"B.";""))&ТЕКСТ((СТРОКА(4:4)-СТРОКА($4:$4)+1);"0000")

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))