Замена строчных букв на произвольный символ.

stifler007 Пользователь Сообщений: 9 Регистрация: 11.10.2015	#1 27.07.2022 22:25:44 Добрый день, товарищи. Сориентируйте, как проще заменить все строчные буквы в ячейке на символы, например: есть (Иванов Иван Иванович) - нужно получить (И*** И* И*******). Прикрепленные файлы Пример.xlsx (9.78 КБ)

БМВ

Модератор

Сообщений: 23333 Регистрация: 28.12.2016

Excel 2013, 2016

27.07.2022 22:37:55

В новых версиях excel разобрать и собрать не проблема, в старых для конкретного примера например так
=REPLACE(REPLACE(REPLACE(REPT("*";LEN(A2));1;1;LEFT(A2));FIND(" ";A2);2;MID(A2;FIND(" ";A2);2));FIND("@";SUBSTITUTE(A2;" ";"@";2));2;MID(A2;FIND("@";SUBSTITUTE(A2;" ";"@";2));2))

Прикрепленные файлы

example2681.xlsx (9.92 КБ)

По вопросам из тем форума, личку не читаю.

Kuzmich

Пользователь

Сообщений: 8057 Регистрация: 21.12.2012

27.07.2022 22:38:51

UDF

Код
Function iFIO(cell$) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[а-яё]" If .test(cell) Then iFIO = .Replace(cell, "*") End If End With End Function

stifler007 Пользователь Сообщений: 9 Регистрация: 11.10.2015	#4 27.07.2022 22:48:09 Магия, спасибо огромное!