=ИНДЕКС(A$1:A$10;НАИМЕНЬШИЙ(ЕСЛИ(МУМНОЖ(ЕЧИСЛО(ПОИСК(ПСТР(A$1:A$10&ПОВТОР(0;33);СТОЛБЕЦ(A:AD);1);"йцкнгшщзхфвпрлджчсмтб"))*ЕЧИСЛО(ПОИСК(ПСТР(A$1:A$10&ПОВТОР(0;33);СТОЛБЕЦ(B:AE);1);"йцкнгшщзхфвпрлджчсмтб"))*ЕЧИСЛО(ПОИСК(ПСТР(A$1:A$10&ПОВТОР(0;33);СТОЛБЕЦ(C:AF);1);"йцкнгшщзхфвпрлджчсмтб"));СТРОКА($1:$30)^0);СТРОКА($1:$10));СТРОКА(A1)))

=ИЛИ(МУМНОЖ(--ЕЧИСЛО(ПОИСК(ПСТР(ПСТР(A1;СТРОКА($1:$20);3)&0;СТОЛБЕЦ(A:C);1);"йцкнгшщзхфвпрлджчсмтб"));{1:1:1})=3)

=ИНДЕКС(A$1:A$10;НАИМЕНЬШИЙ(ЕСЛИ(МУМНОЖ(ЕОШ(ПОИСК(ПСТР(A$1:A$10;СТОЛБЕЦ(A:X);1);"аеёиоуъыьэюя"))*ЕОШ(ПОИСК(ПСТР(A$1:A$10;СТОЛБЕЦ(B:Y);1);"аеёиоуъыьэюя"))*ЕОШ(ПОИСК(ПСТР(A$1:A$10;СТОЛБЕЦ(C:Z);1);"аеёиоуъыьэюя"));СТРОКА(A$1:A$24));СТРОКА($A$1:$A$10));СТРОКА(A1)))

=СМЕЩ(A$1;НАИМЕНЬШИЙ(ЕСЛИ(МУМНОЖ(1-ЕОШ(ПОИСК(ПСТР(Т(СМЕЩ(A$1;(СТРОКА($1:$200)-1)/20;));ОСТАТ(СТРОКА($1:$200)-1;20)+{1;2;3};1);"аеёиоуъыьэюя"));{1:1:1})=0;СТРОКА($1:$200)-1);СТРОКА(A1))/20;)

=ЕСЛИ(ЕОШ(НАЙТИ(111;СУММПРОИЗВ(ЕОШ(ПОИСК(ПСТР(A1;СТРОКА($1:$99);1);"аеёиоуыэюя"))*10^(СТРОКА($1:$99)-1))));"";A1)

=ИЛИ(ДЛСТР(
ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(
ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(
ПСТР(СТРОЧН(A1);СТРОКА($1:$99);3)
;"а";);"е";);"ё";);"и";);"о";)
;"у";);"ы";);"э";);"ю";);"я";)
)=3)

Sub tests()
Application.ScreenUpdating = False
     Dim counter As Long
     Dim rng As Range
     Dim finalRow As Long
     finalRow = Cells(Rows.Count, 1).End(xlUp).Row

     For Each rng In Range("a1:a" & finalRow).Cells
         If абракадабра_какая_то(rng.Value) Then
             counter = counter + 1
             Cells(counter, 2).Value = rng.Value
         End If
     Next
Application.ScreenUpdating = True
End Sub

Function абракадабра_какая_то(cel As String) As Boolean
     Const letts$ = "й ц к н г ш щ з х ф в п р л д ж ч с м т б"
     Dim i&, j&, c&
     Dim celMid$, li&

     For i = 1 To Len(cel)
         celMid = Mid(cel, i, 3)
         For li = 1 To Len(celMid)
             For j = 0 To UBound(Split(letts))
                 If LCase(Mid(celMid, li, 1)) = Split(letts)(j) Then
                     c = c + 1
                 End If
             Next
         Next
         If c >= 3 Then
             абракадабра_какая_то = True
             Exit Function
         Else
             абракадабра_какая_то = False
             c = 0
         End If
     Next
End Function

Public Sub Chars3()
       Dim c As Range
       With CreateObject("VBScript.RegExp")
           .IgnoreCase = True
           .Pattern = "[бвгджзлмнпрстфкчшщ]{3}"
           For Each c In [a1].CurrentRegion.Cells
               If .test(c) Then c(, 2) = c: c = ""
           Next
       End With
End Sub

=ИЛИ(ЧАСТОТА(СТОЛБЕЦ(A:Z);ЕОШ(1/(ПОИСК(ПСТР(A1;СТОЛБЕЦ(A:Z);1);"#бвгджзйклмнпрстфхцчшщ")-1))*СТОЛБЕЦ(A:Z))=4)

=ИЛИ(ЧАСТОТА(СТОЛБЕЦ(A:Z);СТОЛБЕЦ(A:Z)*(1-ЕОШ(ПОИСК(ПСТР(A1;СТОЛБЕЦ(A:Z);1);"аеёиоуъыьэюя"))))=4)

=СМЕЩ(A$1;НАИМЕНЬШИЙ(ЕСЛИ(МУМНОЖ(ЕОШ(ПОИСК(ПСТР(A$1:A$11;СТОЛБЕЦ(C:Z);1);"аеёиоуъыьэюя"))*ЕОШ(ПОИСК(ПСТР(A$1:A$11;СТОЛБЕЦ(B:Y);1);"аеёиоуъыьэюя"))*ЕОШ(ПОИСК(ПСТР(A$1:A$11;СТОЛБЕЦ(A:X);1);"аеёиоуъыьэюя"));ТРАНСП(СТОЛБЕЦ(A:X)));СТРОКА($1:$11);99);СТРОКА(A1))-1;)&""

=СМЕЩ(A$1;НАИМЕНЬШИЙ(ЕСЛИ(МУМНОЖ(ЕОШ(ПОИСК(ПСТР(A$1:A11;СТОЛБЕЦ(C:Z);1);"аеёиоуъыьэюя"))*ЕОШ(ПОИСК(ПСТР(A$1:A11;СТОЛБЕЦ(B:Y);1);"аеёиоуъыьэюя"))*ЕОШ(ПОИСК(ПСТР(A$1:A11;СТОЛБЕЦ(A:X);1);"аеёиоуъыьэюя"));СТРОКА(1:24));СТРОКА($1:11);99);СТРОКА(A1))-1;)&""