=И(RC>=СУММ(RC3:RC4);СЧЁТ(RC3:RC4)=2;ОСТАТ(RC;1)=0)

=И(C1>=(A1+B1);ОСТАТ(C1;1)=0)

Sub ПовернутьИпокрасить()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.Cells
        If c.Orientation <> -4128 Then
            c.Orientation = -4128
            c.Interior.Color = 255
        End If
    Next
End Sub

Sub ДваМинусСто()
    Dim c As Range
    For Each c In Selection.Cells
        c.Cells(1, 2).Value = "2-100-0" & Right(c.Value, 1)
    Next
End Sub

="2-100-0"&ПРАВСИМВ(A2;1)

в А2 и протянуть вниз                    =A1--((B2+C2)>0)
в Е1 и протянуть вниз и вправо           =ВПР(СТРОКА();$A:$C;СТОЛБЕЦ(B:B);0)

=ИНДЕКС('производственный календарь'!C$2:C$13;ПОИСКПОЗ($HY$17;'производственный календарь'!$E$2:$E$13;0))

=ПСТР(ПРАВСИМВ("0"&ДЕНЬ(A1);2);1;1)+ПСТР(ПРАВСИМВ("0"&ДЕНЬ(A1);2);2;1)+ПСТР(ПРАВСИМВ("0"&МЕСЯЦ(A1);2);1;1)+ПСТР(ПРАВСИМВ("0"&МЕСЯЦ(A1);2);2;1)+ПСТР(ГОД(A1);1;1)+ПСТР(ГОД(A1);2;1)+ПСТР(ГОД(A1);3;1)+ПСТР(ГОД(A1);4;1)

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E2:E10000")) Is Nothing Then
        Dim c As Range
        For Each c In Target.Cells
            If Range("E" & c.Row) <> "" Then   '???
               i = Cells(Split(c.Address, "$")(2), 2)
               With Sheets("Лист1")
                    For s = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
                        If .Cells(s, 2) = i Then
                           .Cells(s, 5) = "Гараж"
                           .Cells(s, 3) = ""
                           .Cells(s, 4) = ""
                        End If
                    Next
              End With
            End If
        Next
    End If
End Sub

=ОСТАТ((СУММ($D15:G15)+1);30)

sub aaa()
Range("F4").FormulaR1C1 = "=SUM('*'!R4C5)"
end sub

=ЦЕЛОЕ((СУММ($D6:E6)+1)/30)+1

=ЦЕЛОЕ((СУММ(A1:A2)+1)/30) - Это номер страницы
=ОСТАТ((СУММ(A1:A2)+1);30) - Это номер строки

=СУММЕСЛИМН($H$9:$H$11;$G$9:$G$11;$J$10;$F$9:$F$11;K9)

=НАЙТИ("A";$A$4;E1+1)  в E2 и протянуть вниз
=E2-E1-1               в F2 и протянуть вниз

=ТЕКСТ(ДАТА(2019;1;1)+ВРЕМЯ(9;0;СТРОКА(1:1));"гггг-ММ-ддTчч:мм:сс")

Sub КопированиеСфильтром()
    If ActiveWorkbook.Sheets.Count = 1 Then
        MsgBox "Должно быть не менее двух листов.", vbExclamation
        Exit Sub
    End If
    
    Dim y As Long
    Dim u As Long
    Dim x As Integer
    Dim a As Variant
    Dim b As Variant
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    
    Set sh1 = ActiveSheet   'Лист откуда копируем
    Set sh2 = Sheets(2)     'Лист куда копируем
    
    With sh1.UsedRange
        x = .Column + .Columns.Count - 1
        y = .Row + .Rows.Count - 1
        If y = 1 Then y = 2
        a = .Range(.Cells(1, 1), .Cells(y, x))
    End With
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    
    For y = 1 To UBound(a, 1)
        If a(y, 1) = "Иванов" Then 'Это то, что вы назвали "делать фильтр по столбцу желаемого"
        If a(y, 3) = 1 Then '"...по цифровому значению."
        If Not sh1.Rows(y).Hidden Then
            u = u + 1
            For x = 1 To UBound(a, 2)
                b(u, x) = a(y, x)
            Next
        End If
        End If
        End If
    Next
    
    If u > 0 Then
        With sh2
            y = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(y, 1).Resize(u, UBound(b, 2)) = b
        End With
        MsgBox "Скопировано " & u & " строк.", vbInformation
    End If
End Sub

=((ДАТА($B$3;$C$3;F$1)>=$AL8)*(ДАТА($B$3;$C$3;F$1)<=$AM8)+(ДАТА($B$3;$C$3;F$1)>=$AN8)*(ДАТА($B$3;$C$3;F$1)<=$AO8))>0

=СЧЁТЕСЛИМН(A:A;A:A;B:B;B:B)