=ArrayFormula(ARRAY_CONSTRAIN(--iferror(B1:B=B2:B;);counta(B1:B);1))

=or(if(row()>1;B1=index(B:B;row()-1));B1=index(B:B;row()+1))

Sub Макрос1()
    Application.EnableEvents = 0
    MsgBox " Вводится значение  а ", vbInformation, " Сообщение"
    Range("E3:E4").Select
    ActiveCell.FormulaR1C1 = "а"

    MsgBox " Вводится значение  в ", vbInformation, " Сообщение"
    Range("E3:E4").Select
    ActiveCell.FormulaR1C1 = "в"

    MsgBox " Удаление данных ", vbInformation, " Сообщение"
    Range("E3:E4").Select
    ActiveCell.FormulaR1C1 = ""
    Application.EnableEvents = 1
End Sub

If Not Intersect(Target, Range("E3")) Is Nothing Then

if isempty(target(1, 1)) then call Макрос_0: Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s$, x$, v As Variant
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        s = Target.Validation.Formula1
        v = Evaluate(s)
        If Left(s, 1) = "=" Then
            If TypeName(v) = "Range" Then v = v.Formula
            x = Join(Application.Transpose(v), ";")
        Else: x = s
        End If
        Application.Run "Лист1.Макрос_" & UBound(Split(";" & Mid(x, 1, InStr(1, x, Target) - 1), ";"))
    End If
End Sub

=ПРОСМОТР(9^9;ВПР(Ч(ИНДЕКС(МАКС(ABS(ИНДЕКС(G:G;МАКС(СТРОКА(G4);ПРОСМОТР(9^9;G4:G99;СТРОКА(G4:G99))-9)):ИНДЕКС(G:G;ПРОСМОТР(9^9;G4:G99;СТРОКА(G4:G99)))))*{1;-1};));G4:G99;1;))

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s$, x$, v As Variant
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        s = Target.Validation.Formula1
        v = Evaluate(s)
        If Left(s, 1) = "=" Then
            If TypeName(v) = "Range" Then v = v.Formula
            x = Join(Application.Transpose(v), ";")
        Else: x = s
        End If
        Select Case UBound(Split(";" & Mid(x, 1, InStr(1, x, Target) - 1), ";"))
            Case 1: Call Макрос_1
            Case 2: Call Макрос_2
            Case 3: Call Макрос_3
        End Select
        
        'ИЛИ
        'Application.Run "Макрос_" & UBound(Split(";" & Mid(x, 1, InStr(1, x, Target) - 1), ";"))
    End If
End Sub

=ПРОСМОТР(9^9;ВПР(Ч(ИНДЕКС(МАКС(ABS(ИНДЕКС(G:G;МАКС(СТРОКА(G4);ПРОСМОТР(2;1/G4:G99;СТРОКА(G4:G99))-9)):ИНДЕКС(G:G;ПРОСМОТР(2;1/G4:G99;СТРОКА(G4:G99)))))*{1;-1};));G4:G99;1;))

=ЛЕВБ(A3;ПРОСМОТР(A$2+1;ЕСЛИ(МУМНОЖ(--СОВПАД(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&A3;" ";ПОВТОР(" ";999));999*СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))));999));ТРАНСП(СТРОЧН(Предлоги!A$1:A$372)));СТРОКА(Предлоги!A$1:A$372)^0);НД();МУМНОЖ((СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))))>=ТРАНСП(СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))))))*ТРАНСП(ДЛСТР(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&A3;" ";ПОВТОР(" ";999));999*СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))));999)))+1);СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(0&A3)-ДЛСТР(ПОДСТАВИТЬ(A3;" ";))))^0)))-1)

Sub Макрос1()
    Dim o1 As Shape, o2 As Shape
    Dim x1!, y1!, r1!, x2!, y2!, r2!, xa!, ya!, xb!, yb!
    Dim col As Range
    For Each col In [A3:E6].Columns
        On Error Resume Next
        Set o1 = ActiveSheet.Shapes(col.Cells(1))
        Set o2 = ActiveSheet.Shapes(col.Cells(4))
        If Not (o1 Is Nothing Or o2 Is Nothing) Then
            GetParam o1, x1, y1, r1
            GetParam o2, x2, y2, r2
            Dim i&, j&, p#, l!, lmin!
            Dim x1t!, y1t!, x2t!, y2t!, bc&, ec&
            p = Atn(1)
            lmin = [a65536].Top - [a1].Top
            For i = 0 To 7
                x1t = x1 + Cos(p * i) * r1
                y1t = y1 - Sin(p * i) * r1
                For j = 0 To 7
                    x2t = x2 + Cos(p * j) * r2
                    y2t = y2 - Sin(p * j) * r2
                    l = Sqr((x1t - x2t) ^ 2 + (y1t - y2t) ^ 2)
                    If l < lmin Then
                        lmin = l
                        xa = x1t
                        ya = y1t
                        xb = x2t
                        yb = y2t
                        bc = i
                        ec = j
                    End If
                Next
            Next
            With ActiveSheet.Shapes.AddConnector(msoConnectorStraight, xa, ya, xb, yb)
                .ConnectorFormat.BeginConnect o1, (bc + 6) Mod 8 + 1
                .ConnectorFormat.EndConnect o2, (ec + 6) Mod 8 + 1
                .Name = col.Cells(1) & "|" & col.Cells(4)
            End With
        End If
    Next
End Sub

=ЕСЛИОШИБКА(ЕСЛИ(И(ИНДЕКС(1:3;Ч(ИНДЕКС({1:3};));ПОИСКПОЗ("?*";B2:E2;)+1)="");СУММ(G3:ИНДЕКС(G:G;СТРОКА()+ЕСЛИОШИБКА(ПОИСКПОЗ(ПСТР(A2;1;ПОИСК(СТРОКА();A2)-1)&"*";A3:ИНДЕКС(A:A;ПОИСКПОЗ("яяя";A:A));0)-1;СЧЁТЗ(A:A))));"")*ЕСЛИ($B2="";1;1,1*1,2);"")

=СУММ(СЧЁТЕСЛИ(D3:AH3;"*"&ПОВТОР(AJ$3:AJ$15&"*";СТОЛБЕЦ(A:T)))*AK$3:AK$15)

=СУММ(СЧЁТЕСЛИ(D3:AH3;"*"&AJ$3:AJ$15&"*")*AK$3:AK$15)

=ЕСЛИОШИБКА(ЕСЛИ(ПОИСКПОЗ("?*";$B3:ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-3;4));0)<ПОИСКПОЗ("?*";$B4:ДВССЫЛ(АДРЕС(СТРОКА()+1;СТОЛБЕЦ()-3;4));0);СУММ(ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1;4)):ИНДЕКС(СМЕЩ(H:H;0;-1);ЕСЛИОШИБКА(СТРОКА()+ПОИСКПОЗ("?*";ИНДЕКС($B4:ДВССЫЛ(АДРЕС(500;СТОЛБЕЦ()-2;4));;ПОИСКПОЗ("?*";$B3:ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-2;4));));)-1;1+СЧЁТЗ(Id))));"")*ЕСЛИ($B3="";1;1,1*1,2);"")

=ЕСЛИОШИБКА(ЕСЛИ(СУММ((ДЛСТР(B2:E3)>0)*СТОЛБЕЦ(B2:E3)*{-1:1})>0;СУММ(G3:ИНДЕКС(G:G;СТРОКА()+МИН(ЕСЛИОШИБКА(ПОИСКПОЗ(ВЫБОР({1;2};ПСТР(A2;1;ПОИСК(СТРОКА();A2)-1)&"*";"яяя");A3:ИНДЕКС(A:A;ПОИСКПОЗ("яяя";A:A));{0;1})-{1;0};""))));"")*ЕСЛИ($B2="";1;1,1*1,2);"")