Убрать цифры в начале текста

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Убрать цифры в начале текста (Формулы/Formulas)

Chelovekov

Дата: Пятница, 20.01.2023, 14:22 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 315

Репутация: 0 ±

Замечаний: 80% ±

Excel 2016

Здравствуйте, Уважаемые форумчане. Помогите решить проблему, убрать цифры в начале текста.
Пример прилагаю.
Заранее благодарен.

К сообщению приложен файл: 8050986.xlsx (9.2 Kb)

Ответить

Anis625

Дата: Пятница, 20.01.2023, 14:27 | Сообщение № 2

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Chelovekov,
В предыдущей вашей задаче дал готовое решение

Ответить

Nic70y

Дата: Пятница, 20.01.2023, 14:30 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

массивная

Код

=ПСТР(A2;МИН(ЕСЛИ(ЕОШ(-ПСТР(A2;СТРОКА(A$1:A$10);1));СТРОКА(A$1:A$10)));99)

соот. для пред. темы

Код

=ПСТР(ПОДСТАВИТЬ(G2;"–"&J2;);МИН(ЕСЛИ(ЕОШ(-ПСТР(G2;СТРОКА(A$1:A$10);1));СТРОКА(A$1:A$10)));99)

думал, что там только 3-х значные

К сообщению приложен файл: 15.xlsx (167.5 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 20.01.2023, 14:34

Ответить

Chelovekov

Дата: Пятница, 20.01.2023, 16:00 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 315

Репутация: 0 ±

Замечаний: 80% ±

Excel 2016

Спасибо

Ответить

Gustav

Дата: Пятница, 20.01.2023, 18:10 | Сообщение № 5

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Вариант с "мини-программированием" в Окне отладки (Immediate):

1. Перейти с листа Excel в окно отладки редактора VBA: Alt+F11, Ctrl+G
2. Ввести в окно отладки "мини-программу" в одну строку:
[vba]

Код

For Each c In[A2:A6]:c.Value=Replace(c,Val(c),""):Next

[/vba]3. Находясь в любом месте этой строки, нажать Enter

[p.s.]Еще вариант для Окна отладки - хоть и подлиннее (103 символа против 54), но и поперспективнее, так как не на все случаи жизни функция типа Val найдётся, а регулярка - она и в Африке регулярка:[/p.s.]
[vba]

Код

Set r=CreateObject("VBScript.RegExp"):r.Pattern="\d*":For Each c In[A2:A6]:c.Value=r.Replace(c,""):Next

[/vba]