=СУММ(--(D2:H2=$A$2:$A$6))

Sub LVNums()
  Dim a, b, i&, ms, r&, re, s$
  a = [a1].CurrentRegion: ReDim b(1 To UBound(a), 1 To 1)
  Set re = CreateObject("VBScript.RegExp")
  re.Pattern = "LV\d+": re.Global = True
  For r = 1 To UBound(a)
    If re.test(a(r, 1)) Then
      Set ms = re.Execute(a(r, 1))
      For i = 0 To ms.Count - 1: s = s & "," & ms(i): Next
    End If
  Next
  b = Split(s, ","): ReDim a(1 To UBound(b), 1 To 1)
  For i = 1 To UBound(b): a(i, 1) = b(i): Next
  [c1].Resize(UBound(a), 1) = a
End Sub

Worksheets("Лист для ПДФ-файла")

Private Sub Workbook_Open()
  Worksheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:="PDF-Blya!.pdf", OpenAfterPublish:=False
  ThisWorkbook.Close False
End Sub

ma = worksheetfunction.Min([a1:z100])
for r = 10 to 15
  for c = 5 to 20
    if a(r, c) > ma then ma = a(r, c)
  next
next
msgbox "Max = " & ma

=ДАТАЗНАЧ(ЕСЛИ(ДЛСТР(A5)-ДЛСТР(ПОДСТАВИТЬ(A5;"мая";""))=3;ПОДСТАВИТЬ(A5;".мая.";" май ");ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A5;"я.";"ь ");"а.";" ");".";" ")))