=СУММ(F5:ИНДЕКС(F5:F99999;ЕСЛИОШИБКА(ПОИСКПОЗ(B5+1;B5:B99999;);ПОИСКПОЗ("итого";B5:B99999;))-1))

=СУММ(E2:ИНДЕКС(E:E;ПОИСКПОЗ(A2+1;A:A;)-1))

=ТЕКСТ(СЕГОДНЯ();"[$-FC19]ММММ ГГГГ") & " года"

Sub Convert()
  Selection = Selection.Value
End Sub

=ЦЕЛОЕ((СТРОКА()-1)/50)+1

  If dk = "" Then MsgBox "Жопа за " & Timer - tm & " сек.": Exit Sub

  ks = Split(dk, ","): ReDim a(1 To UBound(ks), 1 To 15)

  If dk = "" Then Exit Sub

Sub JoinEmail()
  Dim a, k, d, r&
  Set d = CreateObject("Scripting.Dictionary"): a = [a1].CurrentRegion
  For r = 1 To UBound(a)
    If d.exists(a(r, 1)) Then d(a(r, 1)) = d(a(r, 1)) & "," & a(r, 2) _
    Else d(a(r, 1)) = a(r, 2)
  Next
  [e:d].ClearContents: k = d.keys: ReDim a(1 To d.Count, 1 To 2)
  For r = 0 To UBound(k): a(r + 1, 1) = k(r): a(r + 1, 2) = d(k(r)): Next
  [e1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [c8]) Is Nothing Then
    Application.EnableEvents = False
    Range("c8").Select: Worksheets.Select
    ActiveCell.FormulaR1C1 = [c8]
    Me.Select: Application.EnableEvents = True
  End If
End Sub

Sub ClearDouble()
  Dim R&, rg As Range
  R = 2
  Do While Not IsEmpty(Cells(R, 1))
    If Cells(R - 1, 1) = Cells(R, 1) Then If rg Is Nothing Then Set rg = Cells(R, 1) Else Set rg = Union(rg, Cells(R, 1))
    R = R + 1
  Loop
  If Not rg Is Nothing Then rg.ClearContents
End Sub

=ЕСЛИ(СУММПРОИЗВ(--(($A$1:$A1-A2)^2<=4));"Дубликат";"")