Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать цифры в начале текста - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать цифры в начале текста (Формулы/Formulas)
Убрать цифры в начале текста
Chelovekov Дата: Пятница, 20.01.2023, 14:22 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 229
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, Уважаемые форумчане. Помогите решить проблему, убрать цифры в начале текста.
Пример прилагаю.
Заранее благодарен.
К сообщению приложен файл: 8050986.xlsx (9.2 Kb)
 
Ответить
СообщениеЗдравствуйте, Уважаемые форумчане. Помогите решить проблему, убрать цифры в начале текста.
Пример прилагаю.
Заранее благодарен.

Автор - Chelovekov
Дата добавления - 20.01.2023 в 14:22
Anis625 Дата: Пятница, 20.01.2023, 14:27 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 660
Репутация: 31 ±
Замечаний: 0% ±

Excel 2013
Chelovekov,
В предыдущей вашей задаче дал готовое решение
 
Ответить
СообщениеChelovekov,
В предыдущей вашей задаче дал готовое решение

Автор - Anis625
Дата добавления - 20.01.2023 в 14:27
Nic70y Дата: Пятница, 20.01.2023, 14:30 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8026
Репутация: 1952 ±
Замечаний: 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
 
Ответить
Сообщениемассивная
Код
=ПСТР(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-х значные

Автор - Nic70y
Дата добавления - 20.01.2023 в 14:30
Chelovekov Дата: Пятница, 20.01.2023, 16:00 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 229
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо
 
Ответить
СообщениеСпасибо

Автор - Chelovekov
Дата добавления - 20.01.2023 в 16:00
Gustav Дата: Пятница, 20.01.2023, 18:10 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2305
Репутация: 918 ±
Замечаний: 0% ±

начинал с 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]


МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Пятница, 20.01.2023, 22:36
 
Ответить
СообщениеВариант с "мини-программированием" в Окне отладки (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]

Автор - Gustav
Дата добавления - 20.01.2023 в 18:10
bmv98rus Дата: Суббота, 21.01.2023, 08:05 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3978
Репутация: 749 ±
Замечаний: 0% ±

Excel 2013/2016
Массивная
Код
=SUBSTITUTE(A2;MAX(IFERROR(--LEFT(A2;ROW($1:$15));));;1)

но есть ограничен 001 и подобное не удалит полностью


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеМассивная
Код
=SUBSTITUTE(A2;MAX(IFERROR(--LEFT(A2;ROW($1:$15));));;1)

но есть ограничен 001 и подобное не удалит полностью

Автор - bmv98rus
Дата добавления - 21.01.2023 в 08:05
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать цифры в начале текста (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2023 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!