Удалить из ячейки все значения кроме цифр и "/"

katya993 Пользователь Сообщений: 8 Регистрация: 10.10.2013	#1 01.11.2013 17:46:22 Подскажите формулу или макрос с помощью которого возможно будет из такого выражения 10106010/291013/0011571 + Инвойс + СМР Сделать 10106010/291013/0011571

Z Пользователь Сообщений: 6111 Регистрация: 21.12.2012 Win 10, MSO 2013 SP1	#2 01.11.2013 17:51:10 Получить все до первого пробела. К вашим хотелкам помошники - =ПСТР() или ЛЕВСИМВ и =НАЙТИ()... Изменено: Z - 01.11.2013 18:41:56 *"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)*

SkyPro

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

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

01.11.2013 18:38:09

http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=15606
http://www.excelworld.ru/forum/7-6063-1
http://www.excel-vba.ru/chto-umeet-excel/kak-ostavit-v-yachejke-tolko-cifry-ili-tolko-tekst/
http://otvety.google.ru/otvety/thread?tid=71e94d279b89e0b9

И еще куча ссылок по запросу "цифры из текста учсуд" в яндексе.
В чем ваша проблема, люди? Неужели зарегистрироваться и открыть тему проще, чем спросить у поисковика?

SkyPro

katya993

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

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

03.11.2013 11:01:09

Вставила формулу =ПСТР(ЛЕВСИМВ(A1;МАКС(ЕСЛИ(ЕЧИСЛО(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1));НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1))));МИН(ЕСЛИ(ЕЧИСЛО(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1));НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1)));32000)
получилось из "10106010/291013/0011571 + Инвойс + СМР" - "10106010/291013/001157"
Не хватает цифры "1" в конце.

Юрий М

Модератор

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

Контакты см. в профиле

03.11.2013 11:21:54

Текст в ячейке А1

Код
Sub Test01() MsgBox Split([A1])(0) End Sub

ikki

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

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

03.11.2013 11:26:24

Цитата
Вставила формулу =ПСТР(ЛЕВСИМВ(A1;МАКС(ЕСЛИ(ЕЧИСЛО(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1));НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1))));МИН(ЕСЛИ(ЕЧИСЛО(НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1));НАЙТИ({0;1;2;3;4;5;6;7;8;9};A1)));32000)

что-то вы какую-то уж слишком простую формулу отыскали на просторах...

а ведь всё гораздо сложнее на самом деле:

Код
=ЛЕВСИМВ(A1;НАЙТИ(" ";A1)-1)

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

vikttur

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

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

03.11.2013 11:31:35

Цитата
Не хватает цифры "1" в конце

ikki перевыполнил "хотелку" - единицу даже в конец формулы вставил

magrifa

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

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

03.11.2013 11:46:48

Код
Function RemRUS(s$) Dim r As Object: Set r = CreateObject("VBScript.RegExp") r.Global = True: r.Pattern = "[А-Яа-я+]" RemRUS = r.Replace(s, vbNullString) End Function

Оформляйте код тэгами [МОДЕРАТОР]

ikki

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

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

03.11.2013 11:56:22

magrifa, тогда уж r.Pattern="[^\d/]"
и короче, и точно соответствует постановке задачи, и пробелов не останется :)
но регулярки здесь - как из пушки по воробьям...

katya993 Пользователь Сообщений: 8 Регистрация: 10.10.2013	#10 04.11.2013 00:01:09 Огромное вам спасибо!

katya993 Пользователь Сообщений: 8 Регистрация: 10.10.2013	#11 05.11.2013 17:00:13 Формула работает когда есть цифры + текст, если только цифры она не работает. Файл во вложении Прикрепленные файлы Книга1.xls (27.5 КБ)

ikki Пользователь Сообщений: 9709 Регистрация: 22.12.2012	#12 05.11.2013 17:06:44 в первом посте речи об этом не было. завтра ещё какое-нибудь условие поменяется? фрилансер Excel, VBA - контакты в профиле "Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

ZVI Пользователь Сообщений: 4609 Регистрация: 23.12.2012	#13 05.11.2013 17:16:24 =ЛЕВСИМВ(A1;НАЙТИ(" ";A1&" ")-1)

Читают тему