0   Н
4   У
10   Д
16   В
23   Н

=ВПР(ЧАС(A1);C1:D5;2)

=ВПР(ЧАС(A1);{0;"Н":4;"У":10;"Д":16;"В":23;"Н"};2)

=ВПР(ЧАС(A2);{0;"Н":4;"У":10;"Д":16;"В":23;"Н"};2)

=ВПР(ЧАС(A2-1/1441);{0;"Н":4;"У":10;"Д":16;"В":23;"Н"};2)

Function доПервойНепустой(rng As Range) As Long
    If IsEmpty(rng.Cells(1)) Then
        доПервойНепустой = Range(rng.Cells(1), _
            rng.Cells(1).End(xlToRight)).Cells.Count - 1
    End If
End F unction

Function доПервойНепустой(rng As Range) As Integer
    If IsEmpty(rng(1)) Then _
        доПервойНепустой = Range(rng(1), rng(1).End(xlToRight)).Count - 1
End F unction

Select Case Target.Offset(0, -2).Text
    Case "Абсолют", "Агата", "Апельсин",...
        str = "Списки!" & wsList.Range....
    Case Else
        ...
End Select

=(РАЗНДАТ(E6;F6;"m")+(РАЗНДАТ(E6;F6;"md")>0))/12

=--ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";50));"вася";"");50)

Function f$(d)
  Dim s$, i&
  d = DateSerial(Year(d), Month(d), 1)
  For i = d To DateAdd("m", 1, d) - 1
    If Weekday(i, 2) > 5 Then s = s & ", " & Day(i)
  Next
  f = Mid(s, 3)
End F unction

?DateSerial(1812,12,26)-DateSerial(1812,6,24)+1
 186 

Range("A6:D22").ClearContents

Sub setOnePropertyForFewControls()

    OLEObjects(Array("TextBox1", "TextBox2", "TextBox3", "TextBox4")).Enabled = True
    OLEObjects(Array("TextBox5", "TextBox6", "TextBox7", "TextBox8", _
                                                           "Label1")).Enabled = False
End Sub

Sub setOnePropertyForFewControls2()

    OLEObjects(Split(R eplace("%1 %2 %3 %4", "%", "TextBox"))).Enabled = True
    OLEObjects(Split(R eplace("%5 %6 %7 %8", "%", "TextBox"))).Enabled = False
    Label1.Enabled = False
    
End Sub

Sub moreThan2criteria()

    Dim wks As Worksheet
    Dim arr As Variant
    Dim i   As Integer
    
    Set wks = Worksheets(1)
    
    arr = wks.AutoFilter.Filters(2).Criteria1
    
    For i = 1 To UBound(arr)
        Debug.Print arr(i)
    Next i
    
End Sub