=ПРОСМОТР("яяя";A$2:A2)

Sub sdf()
     Dim dic: Set dic = CreateObject("scripting.dictionary")
     Dim num, tmp$
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: .DisplayAlerts = 0
         For Each num In [A1].CurrentRegion.Value
             tmp = Join(Evaluate("transpose(len(" & num & ")-len(substitute(" & num & ",char(row(r48:r57)),)))"))
             dic(tmp) = Trim(dic(tmp) & " " & num)
         Next
         For Each Key In dic.keys
             If InStr(1, dic(Key), " ") = 0 Then dic.Remove Key
         Next
         With [L1].Resize(dic.Count)
             .CurrentRegion.Clear: .Value = WorksheetFunction.Transpose(dic.items)
             .TextToColumns Range("L1"), xlDelimited, Space:=True: .Formula = .Value
         End With
     .ScreenUpdating = 1: .EnableEvents = 1: .DisplayAlerts = 1: End With
     Set dic = Nothing
End Sub

=ТЕКСТ(A1*30;"ММММ")

=(ГПР(J$3;$B$4:$H$19;СТРОКА(J2);)>J5)-(J$4>СЕГОДНЯ())

=(ГПР(J$3;$B$4:$H$19;СТРОКА(J2);)<=J5)

=ПРОСМОТР(C4;$A$1:$Q$1;$A$2:$Q$2)

=ИНДЕКС(2:2;МАКС((A1:Q1<=C4)*(ДЛСТР(A2:Q2)>0)*СТОЛБЕЦ(A:Q)))

=КОНМЕСЯЦА(A1;-(ДЕНЬ(A1)<=20))+20-A1

=МУМНОЖ(ПРОСМОТР({"а";"в";"в";"д";"б";"а"};$A$3:$A$7;$B$3:$B$7);ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))

=СУММ(ПРОСМОТР({"а":"в":"в":"д":"б":"а"};$A$3:$A$7;$B$3:$B$7)*ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))

=СЖПРОБЕЛЫ($E$6)="Да"

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$E$6" And [E6] <> "Äà" Then [I6].MergeArea.ClearContents
End Sub

=СУММ(ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))/СЧЁТ(1/ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))