Sub AutoFit501()
    ActiveSheet.Range("$AP$1:$AP$501").AutoFilter Field:=16, Criteria1:="<>"
    Rows("2:501").EntireRow.AutoFit
End Sub

Sub Plangrafik()
    Dim htm As Object
    Dim Tr As Object
    Dim Td As Object
    Dim Tab1 As Object
    Web_URL = VBA.Trim(Sheets(1).Cells(1, 1))
    Set HTML_Content = CreateObject("htmlfile")
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", Web_URL, False
        .send
        HTML_Content.Body.Innerhtml = .responseText
    End With
    Column_Num_To_Start = 1
    iRow = 2
    iCol = Column_Num_To_Start
    iTable = 0
    For Each Tab1 In HTML_Content.getElementsByTagName("table")
        With HTML_Content.getElementsByTagName("table")(iTable)
            For Each Tr In .Rows
                For Each Td In Tr.Cells
                    Sheets(1).Cells(iRow, iCol).Select
                    Sheets(1).Cells(iRow, iCol) = Td.innerText
                    iCol = iCol + 1
                Next Td
                iCol = Column_Num_To_Start
                iRow = iRow + 1
            Next Tr
        End With
        iTable = iTable + 1
        iCol = Column_Num_To_Start
        iRow = iRow + 1
    Next Tab1
End Sub

=СУММПРОИЗВ((условие1)*(условие2)*(условие3)) 

=СМЕЩ(Общее!$B$1;0;0;СЧЁТЗ(Общее!$B$1:$AA$1)-СЧИТАТЬПУСТОТЫ(Общее!$B$1:$AA$1))

=ЕСЛИ(РАБДЕНЬ.МЕЖД($A$2-2+СТРОКА(D1);1;1;$C$2:$C$370)<=$B$2;РАБДЕНЬ.МЕЖД($A$2-2+СТРОКА(D1);1;1;$C$2:$C$370);"")

Sub Прописью()
    If Selection.Type <> wdSelectionNormal Then Exit Sub
    Dim NNN, NNNOst, NNNLen
    With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\D": NNN = .Replace(Selection.Range.Text, ""): End With
    NNNLen = Len(NNN)
    If NNNLen > 17 Then Exit Sub
    NNNOst = Format(Right(NNN, 2), "00", 2)
    If NNNLen > 2 Then NNN = Left(NNN, NNNLen - 2) Else NNN = 0
    ' NNN = NNN & "," & NNNOst
    If Len(NNN) Then Selection.Start = Selection.End: Selection.Range.Text = " (" & СУМ_ПРОП(NNN, NNNOst)
End Sub
Function СУМ_ПРОП$(ByVal ЧИСЛО#, ByVal ЧИСЛОКОП#)
    Dim rub$, kop$, ed, des, sot, nadc, RAZR, i&, m$
    If ЧИСЛО >= 1E+15 Or ЧИСЛО < 0 Then Exit Function
    sot = Array("", " сто", " двести", " триста", " четыреста", " пятьсот", " шестьсот", " семьсот", " восемьсот", " девятьсот")
    des = Array("", "", " двадцать", " тридцать", " сорок", " пятьдесят", " шестьдесят", " семьдесят", " восемьдесят", " девяносто")
    nadc = Array(" десять", " одиннадцать", " двенадцать", " тринадцать", " четырнадцать", " пятнадцать", " шестнадцать", " семнадцать", " восемнадцать", " девятнадцать")
    ed = Array("", " один", " два", " три", " четыре", " пять", " шесть", " семь", " восемь", " девять", "", " одна", " две")
    RAZR = Array(" триллион", " триллиона", " триллионов", " миллиард", " миллиарда", " миллиардов", " миллион", " миллиона", " миллионов", " тысяча", " тысячи", " тысяч", ") рубль ", ") рубля ", ") рублей ")
    rub = Left(Format(ЧИСЛО, "000000000000000"), 15)
    kop = Left(Format(ЧИСЛОКОП, "00"), 2)
    If CDbl(rub) = 0 Then m = " ноль"
    For i = 1 To Len(rub) Step 3
        If Mid(rub, i, 3) <> "000" Or i = Len(rub) - 2 Then
            m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = "1", nadc(CInt(Mid(rub, i + 2, 1))), _
                    des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) - 5 And CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _
                    IIf(Mid(rub, i + 1, 1) = "1" Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, RAZR(i + 1), IIf(Mid(rub, i + 2, 1) = "1", RAZR(i - 1), RAZR(i)))
        End If
    Next i
    m = LTrim(m)
    СУМ_ПРОП = RTrim(Left(m, 1)) & Mid(m, 2) & kop & " копе" & IIf(kop \ 10 = 1 Or ((kop + 9) Mod 10) >= 4, "ек", IIf(kop Mod 10 = 1, "йка", "йки"))
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Parent.ListObjects("Таблица1").Range) Is Nothing Then
        Dim pt As PivotTable
        For Each pt In Sheets("Сводная подразделения").PivotTables
            pt.RefreshTable
        Next
    End If
End Sub

=РАБДЕНЬ.МЕЖД(нач_дата;количество_дней;[выходные];[праздники])

=РАБДЕНЬ.МЕЖД($C$1+10;1;"1100111";$D$2:$D$14)

=НАИМЕНЬШИЙ(A1:A9;(СЧЁТЕСЛИ(A1:A9;0))*(СЧЁТЕСЛИ(A1:A9;"<0")=0)+1)

Sub Нумерация()
    Application.EnableEvents = False
    Dim y As Long
    y = Cells(Rows.Count, 1).End(xlUp).Row
    Dim a As Variant
    a = Range(Cells(1, 4), Cells(y, 4))
    Dim i As Long
    Dim j As Long
     
    Dim v As Range
    Set v = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
     
    For y = 2 To UBound(a)
    If Not Intersect(Cells(y, 5), v) Is Nothing Then
         
        If a(y, 1) <> "" Then
            i = i + 1
            j = 1
            Cells(y, 5).Value = i
        Else
            Cells(y, 5).Value = i & "." & j
            j = j + 1
        End If
    End If
    Next
    Application.EnableEvents = True
End Sub

=СУММПРОИЗВ($F$3:$F$52;I$3:I$52)

=ЕСЛИОШИБКА(ЕСЛИ(ЕЧИСЛО(D2)=ИСТИНА;ПРОМЕЖУТОЧНЫЕ.ИТОГИ(103;$D$2:D2);E1+0,1);"")

=ЕСЛИ(ВПР(D2;'Расчет 21.20'!A:G;6;1)="#Н/Д";"";ВПР(D2;'Расчет 21.20'!A:G;6;1))

=СЧЁТЕСЛИ(AC10:AC4160;(ЕЧИСЛО(F10)=ИСТИНА))