=ЦЕЛОЕ(($E$20+2)/3)*3+1=СТРОКА()
=СТРОКА()=$E$20+3

=ЕСЛИ(СЧЁТЕСЛИ($A5;"*ХСТО*");СУММПРОИЗВ(('По-месячно'!$A$3:$A$90=ПОДСТАВИТЬ($A5;" (ХСТО)";""))*ИНДЕКС('По-месячно'!$C$3:$AD$3;16+((СТОЛБЕЦ()-2)*3)):ИНДЕКС('По-месячно'!$C$90:$AD$90;18+((СТОЛБЕЦ()-2)*3)));СУММПРОИЗВ(('По-месячно'!$A$3:$A$90=$A5)*ИНДЕКС('По-месячно'!$C$3:$AD$3;1+((СТОЛБЕЦ()-2)*3)):ИНДЕКС('По-месячно'!$C$90:$AD$90;3+((СТОЛБЕЦ()-2)*3))))

=ИНДЕКС(E8:H15;L9;ПОИСКПОЗ(L10;E6:H6;0)+(L11="земля"))

=$B$4+СТРОКА(A1)*21

=ЕСЛИ(C2="";СУММЕСЛИ(A3:A9999;A2;G3:G9999);ЕСЛИ(C1=ИНДЕКС($C$2:C2;ПОИСКПОЗ(A2;A:A;));D2;D2-1))

=И(СУММЕСЛИ($I$31:$I$42;$I3;J$31:J$42)>0;СУММЕСЛИ($I$31:$I$42;$I3;J$31:J$42)<J$3)
=И(ВПР($I3;$I$31:$O$42;СТОЛБЕЦ(B3);)>0;ВПР($I3;$I$31:$O$42;СТОЛБЕЦ(B3);)>J3)

=СУММПРОИЗВ((C2:C6=C2)*(B2:B6=B3)/СЧЁТЕСЛИМН(A2:A6;A2:A6;C2:C6;C2:C6;B2:B6;B2:B6))
=СУММПРОИЗВ((C2:C6=C5)*(B2:B6=B2)/СЧЁТЕСЛИМН(A2:A6;A2:A6;C2:C6;C2:C6;B2:B6;B2:B6))

=СУММЕСЛИМН('лист опроса'!B5:B14;'лист опроса'!B5:B14;">=14",'лист опроса'!B5:B14;"<=18")

=ИНДЕКС(Таблица4[Название];ПОИСКПОЗ(СЛУЧМЕЖДУ(1;МАКС(Таблица4[Столбец1]));Таблица4[Столбец1];))

Sub ОшибкаФормулы()
    Range("J:M").SpecialCells(xlCellTypeFormulas, 16) = ""
'    Range("J:M").SpecialCells(xlCellTypeFormulas, 16).ClearContents'очистка ячеек
End Sub
Sub ОшибкаТекст()
    Range("J:M").SpecialCells(xlCellTypeConstants, 16) = ""
'    Range("J:M").SpecialCells(xlCellTypeConstants, 16).ClearContents'очистка ячеек
End Sub

=СУММПРОИЗВ(($A$2:$A$42=A2)*$C$2:$C$42*$D$2:$D$42)/СУММЕСЛИ($A$2:$A$42;A2;$C$2:$C$42)

Sub Макрос1()
Dim userInput As Variant
   
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    userInput = InputBox("Введите нужное число:", , 0.9)
    userInput = Application.Substitute(userInput, ",", ".")
    Range("N10:N" & lLastRow) = "=IF(RC[-1]>0,RC[-1]/" & userInput & ",RC[-8])"
    Calculate
End Sub

Sub Макрос10()
   Dim lLastRow As Long
   With ActiveSheet
        lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row 'находим последнею заполненую ячейку в стобце 1 на активном листе
        .Range("E2").FormulaArray = "=MIN(IF(R2C1:R" & lLastRow & "C1=RC[-4],R2C3:R" & lLastRow & "C3))"
        .Range("E2").Copy
        .Range("E3:E" & lLastRow).PasteSpecial Paste:=xlPasteFormulas
        .Calculate
   End With
End Sub

=СЧЁТЕСЛИ(ИНДЕКС($H$3:$H$64;ПОИСКПОЗ(F$69;$A$3:$A$64;)):ИНДЕКС($S$3:$S$64;ПОИСКПОЗ(F$69;$A$3:$A$64;)+1);$B70)
=СЧЁТЕСЛИ(СМЕЩ($H$2;ПОИСКПОЗ(F$69;$A$3:$A$64;);;2;12);$B70)
=СУММПРОИЗВ(($H$3:$S$64=$B70)*($A$3:$A$64=F$69))

Sub Макрос10()
   Dim lLastRow As Long
   With ActiveSheet.UsedRange
   lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("E2").FormulaArray = "=MIN(IF(R2C1:R42C1=RC[-4],R2C3:R42C3))"
   Range("E2").Copy
   Range("E3:E" & lLastRow).PasteSpecial Paste:=xlPasteFormulas
   .Calculate
   End With
End Sub

=ЕСЛИ(A31>=--"150:00:00";"Зачёт";"Незачёт")

=ИНДЕКС($A$2:$A$4;ПОИСКПОЗ($B$7;ИНДЕКС($B$2:$D$4;;ПОИСКПОЗ(A10;$B$1:$D$1;));))