=МАКС(FILTER(B:B;A:A=A1))
=ЕСЛИ(A1="";"";"!")
=ПОИСКПОЗ("!";B1:B1000;0)
=ПОИСКПОЗ("!";ДВССЫЛ("R"&(C1+1)&"C[-1]:R10000C[-1]";0);0)+C1
=C2-C1-1
=СРЗНАЧ(D1:D1000)
=ArrayFormula(ЕСЛИ(A1:A="";"";ГИПЕРССЫЛКА(A1:A&B1:B&C1:C)))
Public Function RegExpExtract(sText As Variant, Pattern As String) As Variant
On Error GoTo ErrHandl
Text = CStr(sText)
Dim regex As New RegExp ' создаем экземпляр RegExp
regex.Pattern = Pattern
regex.Global = False
If regex.test(Text) Then
Set matches = regex.Execute(Text)
RegExpExtract = matches.Item(0).SubMatches(0)
Exit Function
End If
ErrHandl:
RegExpExtract = ""
'RegExpExtract = "#" & err.Number & "> " & err.Description
End Function
$A$4:$F$33