=ЕСЛИОШИБКА(ОСТАТ(ПСТР(ПОДСТАВИТЬ(","&$A1;",";ПОВТОР(" ";99));99*СТОЛБЕЦ(A1);99);10^7);"")

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        If .NumberFormat = "[h]:mm:ss" And Int(.Value) = .Value Then
            Application.EnableEvents = False
            .Formula = Format(.Formula, "00:00:00")
            .NumberFormat = "[h]:mm:ss"
            Application.EnableEvents = True
        End If
    End With
End Sub

Option Explicit
    'константы для функций API
    Private Const GWL_STYLE As Long = -16& 'для установки нового вида окна
    Private Const GWL_EXSTYLE = -20& 'для расширенного стиля окна
    Private Const WS_CAPTION As Long = &HC00000 'определяет заголовок
    Private Const WS_BORDER As Long = &H800000 'определяет рамку формы
    
    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2
    
    'Функции API, применяемые для поиска окна и изменения его стиля
#If VBA7 Then
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long

    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA"  (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Private Declare PtrSafe Sub ReleaseCapture Lib "user32" ()
    
    Dim ihWnd As LongPtr
#Else
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Sub ReleaseCapture Lib "user32" ()
    
    Dim ihWnd As Long
#End If

Private Sub UserForm_Initialize()
    Dim hStyle
    'ищем окно формы среди всех открытых окон
    If VAL(Application.Version) < 9 Then
        ihWnd = FindWindow("ThunderXFrame", Me.Caption) 'для Excel 97
    Else
        ihWnd = FindWindow("ThunderDFrame", Me.Caption) 'для Excel 2000 и выше
    End If
    'получаем информацию о найденном окне(стили и т.д.)
    hStyle = GetWindowLong(ihWnd, GWL_STYLE)
    'назначаем переменной новый стиль для окна формы
    hStyle = hStyle And Not WS_CAPTION And Not WS_BORDER
    'изменяем вид окна: убираем меню(заголовок) и рамку
    SetWindowLong ihWnd, GWL_STYLE, hStyle
    SetWindowLong ihWnd, GWL_EXSTYLE, 0
    'перерисовываем форму, точнее строку меню(заголовка)
    DrawMenuBar ihWnd
    'меняем размер формы, т.к. сделали смещение элементов формы вверх на высоту заголовка
    Me.Height = Me.Height + GWL_EXSTYLE
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        ReleaseCapture
        SendMessage ihWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub

Private Sub ЗАКРЫТЬ_Click()
    Unload Me
End Sub

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

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

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

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

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

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

=ОТБР((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))

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

С    =Лист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)

=ОТБР((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))

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

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

=МИН(МАКС(ПРОСМОТР(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)