=24*ДЕНЬ(A1)+ЧАС(A1)

=ЕСЛИ(ДЛСТР(B3)-ДЛСТР(ПОДСТАВИТЬ(B3;" /";""))>0;СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(B3;" /";ПОВТОР(" ";ДЛСТР(B3))&"/");ДЛСТР(B3)));"")

cDat = DateSerial(Right(Dat, 4), Mid(Dat, 4, 2), Left(Dat, 2))

=РАБДЕНЬ(<дата или формула возвращающая дату>-1;1)

Public Function udfSumNum(rn As Range)
    Dim cel As Range, i As Integer, tmp As String
    For Each cel In rn
        If cel Like "*#*" Then
            tmp = ""
            For i = 1 To Len(cel)
                If Mid(cel, i, 1) Like "#" Then
                    tmp = tmp & Mid(cel, i, 1)
                Else
                    tmp = tmp & "+"
                End If
            Next i
            If tmp Like "*#*" Then udfSumNum = udfSumNum + Evaluate(tmp)
        End If
    Next cel
End Function

    With Columns(Range("E1").Column)
        .FormulaLocal = .FormulaLocal
    End With

WorkSheets("На сборку")....

Sheet_TMP_Assembly....

Sub test()
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    Dim rt As Long, ct As Integer, r As Long
    Dim tmp As String
    
    rt = 3 'первая строка с результатом
    ct = 3 'первый столбец с результатом
    
    For r = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        tmp = Left(Cells(r, "A"), InStr(1, Cells(r, "A"), "№"))
        If Not dic.Exists(tmp) Then
            dic.Add tmp, ct
            Cells(rt, ct) = Cells(r, "A")
            ct = ct + 1
        Else
            Cells(Rows.Count, dic(tmp)).End(xlUp).Offset(1, 0) = Cells(r, "A")
        End If
    Next r
    MsgBox "Done"
End Sub

=СЧЁТЕСЛИМН($B:$B;$F3;$C:$C;G$2)

If Cells(i, "BM") = Nai Then

If Not IsError(Application.Match(Cells(i, "BM"), Nai, 0)) Then

Private Sub Worksheet_Change(ByVal Target As Range)
    If Len(Target.Value) > 0 Then
        Dim arr() As String, j As Integer, flg As Boolean, st As Integer
        arr = Split(Target, Chr(10))
        st = 1
        For j = LBound(arr) To UBound(arr)
            If flg Then
                Target.Characters(Start:=st, Length:=Len(arr(j)) + 1).Font.Color = RGB(255, 0, 0)
            Else
                Target.Characters(Start:=st, Length:=Len(arr(j)) + 1).Font.Color = RGB(0, 0, 0)
            End If
            flg = Not flg
            st = st + Len(arr(j)) + 1
        Next j
    End If
End Sub

=СМЕЩ(РФ!A1;ПОИСКПОЗ(A4;РФ!$B:$B;0)-1;ПОИСКПОЗ(A1;РФ!$2:$2;0)-1)

=ЕСЛИОШИБКА(ЕСЛИ(ИНДЕКС(свод!$A:$AG;ПОИСКПОЗ($A3;свод!$A:$A;0);ПОИСКПОЗ(ТЕКСТ(C$2;"дд.ММ.гггг");свод!$4:$4;0))=1;"К";"");"")

=ЕСЛИОШИБКА(ЕСЛИ(ИНДЕКС(свод!$A:$AG;ПОИСКПОЗ($B3;свод!$A:$A;0);ПОИСКПОЗ(ТЕКСТ(D$2;"дд.ММ.гггг");свод!$4:$4;0)+1)=1;"Т";"");"")

=НЕ(ЕНД(ПОИСКПОЗ(A1;Лист1!A:A;0)))

Sub Vot_tak_vot()
    Dim sh As Worksheet, r As Long
    For Each sh In ThisWorkbook.Sheets
        For r = sh.Cells(sh.Rows.Count, "I").End(xlUp).Row To 1 Step -1
            If sh.Cells(r, "I") = "Да" Then sh.Rows(r).Delete
        Next r
    Next sh
    MsgBox "Done"
End Sub