Function ТАБЕЛЬ(таблица As Range, фио As String, дата As Date, Optional выходные As String = "0000011", Optional праздники As Range)
Dim arr()
Dim dic As Object
Dim I&, J&, iKey, iTmp
Dim wDay&
Set dic = CreateObject("Scripting.Dictionary")
If Not праздники Is Nothing Then
  arr = праздники.Value
  For Each iKey In arr: iTmp = dic(iKey): Next
End If
arr = таблица.Value
For I = 1 To UBound(arr, 1)
  If arr(I, 1) = фио Then
    If дата >= arr(I, 2) And дата <= arr(I, 3) Then
      wDay = Weekday(дата, vbMonday)
      If Mid(выходные, wDay, 1) = 1 Then
        ТАБЕЛЬ = "В"
        Exit Function
      Else
        If dic.Count > 0 Then
          If dic.Exists(дата) Then
            ТАБЕЛЬ = "В"
            Exit Function
          End If
        End If
      End If
      ТАБЕЛЬ = 8
      Exit Function
    Else
      ТАБЕЛЬ = "-"
      Exit Function
    End If
  End If
Next
End Function