Страницы: 1
RSS
Извлечь латиницу и цифры формулой из текста
 
Здравствуйте, есть смешанный текст. Нужно из него извлечь латиницу и цифры или убрать кириллицу.
Изменено: Oleksiy Babenko - 17.11.2019 15:28:48
 
Массивная
=LEFT(A1;MIN(IF(MID(A1;ROW(1:99);1)>="А";ROW(1:99)))-1)
По вопросам из тем форума, личку не читаю.
 
Код
Function извл$(t$)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^А-Яа-яЁё]+"
        извл = Trim(.Execute(t)(0))
    End With
End Function
Соблюдение правил форума не освобождает от модераторского произвола
 
Цитата
убрать кириллицу.
UDF
Код
Function iRusDel(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "[\sА-ЯЁ]+"
     iRusDel = .Replace(cell, "")
 End With
End Function
 
Kuzmich, buchlotnik, БМВ, спасибо.
Страницы: 1
Наверх