=ОТБР((B2-ОКРВВЕРХ(B1-B3-1;7)-B3-1)/7)-СУММПРОИЗВ((F2:F10>=B1)*(F2:F10<=B2)*(ДЕНЬНЕД(F2:F10;2)=B3))

Sub dd()
    With Application
    .ScreenUpdating = 0: .EnableEvents = 0: .DisplayAlerts = 0
    With Sheets("Ëèñò1")
        .Copy Sheets(1)
        With .[A1].CurrentRegion
            .UnMerge
            On Error Resume Next
            .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
            On Error GoTo 0
            Sheets(1).Range(.Address).Copy
            .PasteSpecial xlPasteFormats
            Sheets(1).Delete
        End With
    End With
    .ScreenUpdating = 1: .EnableEvents = 1: .DisplayAlerts = 1
    End With
End Sub

=--СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A1;"+";ПОВТОР(" ";99));(СТОЛБЕЦ(A1)-1)*99+2;99))

=МИН(МАКС(ПРОСМОТР(H2%%;{0;2;10;20;100};{0;2;8;13;33}*400)+(H2%%-ПРОСМОТР(H2%%;{0;2;10;20;100}))/1%*ПРОСМОТР(H2%%;{0;2;10;20;100};{4;3;2;1;0,5});400);60000)/2

=ОКРУГЛ(МИН(МАКС(ПРОСМОТР(H2%%;{0;2;10;20;100};{0;2;8;13;33}*400)+(H2%%-ПРОСМОТР(H2%%;{0;2;10;20;100}))/1%*ПРОСМОТР(H2%%;{0;2;10;20;100};{4;3;2;1;0,5});400);60000)/2;0)

=ЕСЛИ(G5<"";СЧЁТ(1/ЧАСТОТА(ЕСЛИ((G$6:G$77<=G5)*(G$6:G$77>0);G$6:G$77);G$6:G$77));"")

=ЕСЛИ(G5<"";СЧЁТ(1/ЧАСТОТА(ЕСЛИ((G$5:G$77<=G5)*(G$5:G$77>0);G$5:G$77);G$5:G$77));"")

=ОТБР((B2-ОКРВВЕРХ(B1-B3-8;7)-B3-1)/7)-СУММПРОИЗВ((F2:F10>=B1)*(F2:F10<=B2)*(ДЕНЬНЕД(F2:F10;2)=B3))

=ОТБР((B2-ОКРВНИЗ(С-B3-1;7)-B3-1)/7)-СУММПРОИЗВ((F2:F10>=B1)*(F2:F10<=B2)*(ДЕНЬНЕД(F2:F10;2)=B3))

С    =Лист1!$B$1

По    =Лист1!$B$2

ДН    =Лист1!$B$3

Д1    =ДН+1

Д2    =ОКРВНИЗ(С-Д1;7)+Д1

КДН    =ОТБР((ПО-Д2)/7)

=ОТБР((B2-ОКРВНИЗ(B1-B3-1;7)-B3-1)/7)

Sub vvv()
    With Selection
        .Replace "Автомобиль", "=xx1", xlWhole
        Intersect([xx1].Dependents, .Cells).Delete xlUp
        With .SpecialCells(xlCellTypeConstants, 1)
            Set r = .Find("?", , xlValues, xlWhole, Searchformat:=False)
            Do While Not r Is Nothing
                r.Formula = Format(r, "'00")
                Set r = .FindNext(r)
            Loop
        End With
    End With
End Sub

=ОТБР((B2-ОКРВНИЗ(B1-B3-1;7)-B3-1)/7)-СЧЁТ(1/(ДЕНЬНЕД(ТЕКСТ(ТЕКСТ({43101:43102:43103:43104:43105:43106:43107:43108:43154:43167:43168:43220:43221:43222:43229:43262:43263:43409:43465};"[>="&B1&"]0;");"[<="&B2&"]0;"))=B3))

=ЕСЛИОШИБКА(ПРОСМОТР(;-1/ЕНД(ПОИСКПОЗ($C$5:ИНДЕКС(C:C;ПОИСКПОЗ("яяя";$C$1:$C$77));$K$4:K4;));$C$5:$C$77);"")

Sub Макрос1()
    Application.ScreenUpdating = False
    Dim sh As Shape
    On Error Resume Next
    Set sh = ActiveSheet.Shapes("Вставленный")
    Do Until sh Is Nothing
        sh.Delete
        Set sh = Nothing
        Set sh = ActiveSheet.Shapes("Вставленный")
    Loop
End Sub

Sub vvv()
    Dim v As Variant
    On Error Resume Next
    With Selection
        For Each v In Array("авто*", "Метла", "61??", ChrW(157))
            .Replace v, "=xfd1", xlWhole, searchformat:=False
            Intersect([xfd1].Dependents, .Cells).Delete xlUp
        Next
    End With
End Sub

Private Sub TextBox1_Change()
    If Not IsNumeric(TextBox1) Or Val(TextBox1) <= 0 Then Exit Sub
    Лист2.[C6:C8] = Application.Transpose(Лист1.[B4:D4].Offset(TextBox1))
End Sub

Function ЗаменитьБукву$(s$)
    With CreateObject("scriptcontrol")
        .Language = "JScript"
        ЗаменитьБукву = .eval("'" & s & "'.replace(/(?:^|\b)([a-z])/gi, " & _
            "function(a) { return a.toUpperCase(); })")
    End With
End Function

Sub ertert()
Dim wsh As Worksheet, dt As Date, x, y(), i&, k&
dt = Range("A1").Value
Range("A1").CurrentRegion.Offset(1).ClearContents

For Each wsh In ThisWorkbook.Sheets
    If Not wsh Is ActiveSheet Then
        x = wsh.Range("I1").CurrentRegion.Value
        If Not IsEmpty(x) Then
            k = 0
            ReDim y(1 To UBound(x), 1 To 4)
            For i = 1 To UBound(x) Step 2
                If x(i, 1) = dt Then
                    k = k + 1
                    y(k, 1) = dt
                    y(k, 2) = x(i + 1, 1)
                    y(k, 3) = x(i, 2)
                    y(k, 4) = x(i + 1, 2)
               End If
            Next i
         End If
    If k > 0 Then Cells(Rows.Count, 2).End(xlUp)(2, 1).Resize(k, 4).Value = y()
    End If
Next wsh