=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(AL66:EY66&ЕСЛИ(ЕОШ(ПОИСК(",?,";AL66:EY66&","));"";)&":";",";":");))

=ТЕКСТ(СУММ(ЕСЛИОШИБКА(ВРЕМЯ(ЦЕЛОЕ(AL66:EY66);ОСТАТ(AL66:EY66;1)/1%;);));"[ч],мм")

=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(AL66:EY66/1%;ЛЕВБ(AL66:EY66;ПОИСК(",";AL66:EY66&",")-1);ЛЕВБ(AL66:EY66;ПОИСК(",";AL66:EY66&",")-1)&":";1);))

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Count > 1 Then Exit Sub
      If Intersect(Target, Range("B5:B30")) Is Nothing Then Exit Sub

      Dim sComm As String

      With Target
          Select Case .Value
          Case "nb", "b"
              sComm = InputBox("Ввод причины:", "Ввод причины", "Прогул")
              If Len(sComm) > 0 Then
                  .ClearComments
                  .AddComment sComm
              End If
          Case Empty
              .ClearComments
              Exit Sub
          Case Else
              .ClearComments
              .ClearContents
              MsgBox "Информация", 0 Or 64, "Заголовок"
          End Select
      End With
End Sub

Sub LoadCSV()
      Dim File_$, Path_$, strcon$, strSQL$, rsARR(), field_$
      Dim cnn: Set cnn = CreateObject("ADODB.Connection")
      Dim rst: Set rst = CreateObject("ADODB.Recordset")
      Dim field
xx:
      File_ = Application.GetOpenFilename("CSV data logs,*.csv", , "Выберите CSV файл", , False)
      If File_ = "False" Then
          If MsgBox("Хотите продолжить?", 32 Or 4, "Вы не выбрали файл!") = 6 Then
              GoTo xx
          Else: Exit Sub
          End If
      End If
      Path_ = Left(File_, InStrRev(File_, "\"))
      File_ = Mid(File_, InStrRev(File_, "\") + 1)
      strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path_ & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
      cnn.Open strcon
      strSQL = "SELECT * FROM " & File_ & ";"
      Set rst = cnn.Execute(strSQL)
      field_ = rst.fields(0).Name
      strSQL = "SELECT * FROM " & File_ & " where [" & field_ & "] is not null order by [" & field_ & "];"
      Set rst = cnn.Execute(strSQL)
      rsARR = rst.GetRows
      With [a1].Resize(UBound(Application.Index(rsARR, 1, 0)), UBound(rsARR) + 1)
          .Value = Application.Transpose(rsARR)
      End With
      rst.Close
      Set cnn = Nothing
End Sub

=СУММПРОИЗВ(ЕЧЁТН(СТРОКА(B4:H12))*(1-ЕОШ(B4:H12^0)))*2

=СУММПРОИЗВ(ЕЧЁТН(СТРОКА(B4:H12))*(B4:H12&""="0")*(ДЕНЬНЕД(B3:H3)>1))

=СУММПРОИЗВ(ЕЧЁТН(СТРОКА(B4:H12))*(1-ЕОШ(ПОИСК("00";B4:H12)))*(ДЕНЬНЕД(B3:H3)>1))

Sub toCSV()
       Dim wsh As Worksheet, wsh1 As Worksheet, wsh2 As Worksheet
       Dim rng1, rng2 As Range, rRow&
With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
       On Error GoTo err
       Set wsh = ActiveSheet
       Set wsh1 = Sheets("IRR"): Set wsh2 = Sheets("CSV")
       Set rng1 = wsh1.[A:A].SpecialCells(xlCellTypeConstants, 1)
       Set rng2 = Intersect(wsh1.[O:R], rng1.EntireRow)
       With wsh2
           rRow = Application.CountA(.[B:B])
           rng2.Copy .[B1].Offset(rRow)
           rng1.Copy .[D1].Offset(rRow)
           rRow = Application.CountA(.[B:B])-1
           .[A2:A3].AutoFill .[A2].Resize(rRow), 0
           .[F2:I3].AutoFill .[F2:I3].Resize(rRow), 0
           .[B2:E2].AutoFill .[B2:E2].Resize(rRow), 3
       End With
       Application.CutCopyMode = 0: wsh.Activate
       Set wsh = Nothing: Set wsh1 = Nothing: Set wsh2 = Nothing
err:
With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub

Sub сортировка()
'
' сортировка Макрос
'
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
     With Sheets("Лист1").[C4:D29].Rows
         .Parent.Outline.ShowLevels .OutlineLevel
         .Sort [D4], 2
         .Parent.Outline.ShowLevels .OutlineLevel - 1
     End With
     With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub