Страницы: 1
RSS
Удаление всех символов до перовой буквы, Как удалить разное количество символов и разный тип символов до первой буквы
 
В ячейках следующее содержание:

456,-№  ZZ Маша Иванова
/*{}Петя Петров
<>%%%%%DD Вася Кузнецов

Необходимо удалить все символы до первой русской буквы имени. Обратите внимание, что количество и тип символов до первой русской буквы имени разное. Так же между первой русской буквой имени и последним символом может не быть пробела. Так же есть пробелы между самими символами.
 
вариант, массивная
Код
=ПСТР(A1;ПОИСКПОЗ(1;--(КОДСИМВ(ПСТР(A1;СТРОКА(1:99);1))>=192););99)
 
{=ПСТР(A1;МИН(ЕСЛИОШИБКА(ЕСЛИ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$20);1))>191;СТРОКА($1:$20));21));99)}
 
Оба варианта (V и Catboyun) работают. Никогда бы сам не до пер. БОЛЬШОЕ СПАСИБО ЗА ОПЕРАТИВНОСТЬ!!!
 
вариант двух UDF: bbb или aaa  для файл-примера из #1
Код
Function aaa$(t$)
 With CreateObject("VBScript.RegExp"): .IgnoreCase = True: .Pattern = "^.+?(?=[а-яё])"
  aaa = Trim(.Replace(t, ""))
 End With
End Function
Код
Function bbb$(t$)
 With CreateObject("VBScript.RegExp"): .IgnoreCase = True: .Global = True: .Pattern = "[^ а-яё]"
  bbb = Trim(.Replace(t, ""))
 End With
End Function
Изменено: кузя1972 - 15.10.2018 15:59:11
Страницы: 1
Наверх