Функция =ИЗВЛЕЧЬЛАТИНИЦУ(ТЕКСТ) имеет один аргумент:
С помощью данной функции можно, к примеру, вытащить из объявлений о продаже автомобилей их марки и модели.
Function ИЗВЛЕЧЬЛАТИНИЦУ(ТЕКСТ As String) As String Dim i As Long Dim SimbolLatin Dim splt Dim temptext As String Dim Result As String SimbolLatin = "*[abcdefghijklmnopqrstuvwxyz]*" Result = "" splt = Split(ТЕКСТ, " ") For i = 0 To UBound(splt) temptext = LCase(splt(i)) If temptext Like SimbolLatin Then Result = Result & " " & splt(i) End If Next ИЗВЛЕЧЬЛАТИНИЦУ = Trim(Result) End Function