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

Вход

Регистрация

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

 

= Мир MS Excel/Как вытянуть число, находящееся перед определенным текстом - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как вытянуть число, находящееся перед определенным текстом (Формулы/Formulas)
Как вытянуть число, находящееся перед определенным текстом
DSA Дата: Среда, 15.03.2017, 13:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Помогите создать формулу чтобы она перетаскивала в новый столбец число после которого идет слово "шт". Прим "Кнопки канцелярские STAFF эконом, металл. никелированные, 10мм, 50 шт., в карт. коробке, 225286" число 50 должно быть в другом столбце спасибо. Так же в строках есть текст, где отсутствует пробел перед "шт", прим Скрепки 50 мм оцинкованные, гофрированные, 50шт., в карт. коробке, 221133.
К сообщению приложен файл: 9196425.xls (24.0 Kb)


Сообщение отредактировал DSA - Среда, 15.03.2017, 14:03
 
Ответить
СообщениеДобрый день! Помогите создать формулу чтобы она перетаскивала в новый столбец число после которого идет слово "шт". Прим "Кнопки канцелярские STAFF эконом, металл. никелированные, 10мм, 50 шт., в карт. коробке, 225286" число 50 должно быть в другом столбце спасибо. Так же в строках есть текст, где отсутствует пробел перед "шт", прим Скрепки 50 мм оцинкованные, гофрированные, 50шт., в карт. коробке, 221133.
Автор - DSA
Дата добавления - 15.03.2017 в 13:00
китин Дата: Среда, 15.03.2017, 13:01 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
сначала читаем

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениесначала читаем
Автор - китин
Дата добавления - 15.03.2017 в 13:01
DSA Дата: Среда, 15.03.2017, 13:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, Почитал исправился.
 
Ответить
Сообщениекитин, Почитал исправился.
Автор - DSA
Дата добавления - 15.03.2017 в 13:10
китин Дата: Среда, 15.03.2017, 13:22 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Удалено администрацией

[moder]Ничего не исправился. Что за название темы такое?[/moder]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеУдалено администрацией

[moder]Ничего не исправился. Что за название темы такое?[/moder]
Автор - китин
Дата добавления - 15.03.2017 в 13:22
_Boroda_ Дата: Среда, 15.03.2017, 13:37 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16885
Репутация: 6599 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
DSA, назовите тему так, чтобы если бы она здесь уже раньше с таким названием была, а Вы пришли бы сюда и захотели спросить как Вам вытянуть число, находящееся перед определенным текстом, то Вы бы нашли ту тему с помощью поиска.
А у Вас в названии почти все, кроме слова "вытягивание", лишнее
Цитата
Создаем работующую формулу в exel для вытягивания данных

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеDSA, назовите тему так, чтобы если бы она здесь уже раньше с таким названием была, а Вы пришли бы сюда и захотели спросить как Вам вытянуть число, находящееся перед определенным текстом, то Вы бы нашли ту тему с помощью поиска.
А у Вас в названии почти все, кроме слова "вытягивание", лишнее
Цитата
Создаем работующую формулу в exel для вытягивания данных
Автор - _Boroda_
Дата добавления - 15.03.2017 в 13:37
DSA Дата: Среда, 15.03.2017, 14:06 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, китин, Извините Новичка на первый раз пожалуйста...
 
Ответить
Сообщение_Boroda_, китин, Извините Новичка на первый раз пожалуйста...
Автор - DSA
Дата добавления - 15.03.2017 в 14:06
DSA Дата: Среда, 15.03.2017, 14:09 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Нашел формулу, но она тянет символы т.е и буквы и числа после "шт"
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A8;ПОИСК("шт.";A8)-4;4);"( )";);".";"")
, а можно чтобы она тянула только числа???


Сообщение отредактировал DSA - Среда, 15.03.2017, 16:29
 
Ответить
СообщениеНашел формулу, но она тянет символы т.е и буквы и числа после "шт"
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A8;ПОИСК("шт.";A8)-4;4);"( )";);".";"")
, а можно чтобы она тянула только числа???
Автор - DSA
Дата добавления - 15.03.2017 в 14:09
_Boroda_ Дата: Среда, 15.03.2017, 14:21 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16885
Репутация: 6599 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Последний Ваш косяк без замечаний. Исправляйте

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПоследний Ваш косяк без замечаний. Исправляйте
Автор - _Boroda_
Дата добавления - 15.03.2017 в 14:21
китин Дата: Среда, 15.03.2017, 14:59 | Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
чисто по примеру на коленке
Код
=ПСТР(ПОДСТАВИТЬ(A1;" ";"");ПОИСК("шт.";ПОДСТАВИТЬ(A1;" ";""))-2;2)
К сообщению приложен файл: 333222.xls (24.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениечисто по примеру на коленке
Код
=ПСТР(ПОДСТАВИТЬ(A1;" ";"");ПОИСК("шт.";ПОДСТАВИТЬ(A1;" ";""))-2;2)
Автор - китин
Дата добавления - 15.03.2017 в 14:59
DSA Дата: Среда, 15.03.2017, 15:07 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, тут другое дело в списке есть не только двухзначные числа типа 50, но есть и 1000 и если будет -2;2 из 1000 вытянется оо, а если будет -4;4 то из 50 вытянутся два символа перед 50 пример прилагаю.
К сообщению приложен файл: _333222.xls (25.0 Kb)
 
Ответить
Сообщениекитин, тут другое дело в списке есть не только двухзначные числа типа 50, но есть и 1000 и если будет -2;2 из 1000 вытянется оо, а если будет -4;4 то из 50 вытянутся два символа перед 50 пример прилагаю.
Автор - DSA
Дата добавления - 15.03.2017 в 15:07
китин Дата: Среда, 15.03.2017, 15:19 | Сообщение № 11
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
какие исчё у вас хотелки?
Код
=ПСТР(ПОДСТАВИТЬ(A1;" ";"");ПОИСК("мм,";ПОДСТАВИТЬ(A1;" ";""))+3;(ПОИСК("шт.";ПОДСТАВИТЬ(A1;" ";""))-1)-(ПОИСК("мм,";ПОДСТАВИТЬ(A1;" ";""))+2))

это если все обстоит так, как во втором примере. т.е. кол-во идет сразу после размера
К сообщению приложен файл: 333222111.xls (25.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 15.03.2017, 15:22
 
Ответить
Сообщениекакие исчё у вас хотелки?
Код
=ПСТР(ПОДСТАВИТЬ(A1;" ";"");ПОИСК("мм,";ПОДСТАВИТЬ(A1;" ";""))+3;(ПОИСК("шт.";ПОДСТАВИТЬ(A1;" ";""))-1)-(ПОИСК("мм,";ПОДСТАВИТЬ(A1;" ";""))+2))

это если все обстоит так, как во втором примере. т.е. кол-во идет сразу после размера
Автор - китин
Дата добавления - 15.03.2017 в 15:19
DSA Дата: Среда, 15.03.2017, 15:29 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, СПАСИБО БОЛЬШОЕ!!! ВЫ ПРОСТО ВОЛШЕБНИК Я ДВА ДНЯ СИЖУ БЬЮСЬ С ЭТИМ ФАЙЛОМ.... где так c exel учат работать???
 
Ответить
Сообщениекитин, СПАСИБО БОЛЬШОЕ!!! ВЫ ПРОСТО ВОЛШЕБНИК Я ДВА ДНЯ СИЖУ БЬЮСЬ С ЭТИМ ФАЙЛОМ.... где так c exel учат работать???
Автор - DSA
Дата добавления - 15.03.2017 в 15:29
_Boroda_ Дата: Среда, 15.03.2017, 15:44 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 16885
Репутация: 6599 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Игорь-волшебник получает строгий выговор. Почему отвечаем на вопрос, когда не исправлено замечание модератора?
Цитата _Boroda_, 15.03.2017 в 14:21, в сообщении № 8 ()
Исправляйте

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеИгорь-волшебник получает строгий выговор. Почему отвечаем на вопрос, когда не исправлено замечание модератора?
Цитата _Boroda_, 15.03.2017 в 14:21, в сообщении № 8 ()
Исправляйте
Автор - _Boroda_
Дата добавления - 15.03.2017 в 15:44
китин Дата: Среда, 15.03.2017, 15:51 | Сообщение № 14
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
эээээ. название темы то исправлено. и вполне адекватное.Было
Цитата
Создаем работующую формулу в exel для вытягивания данных

стало то что стало.
Кошелек, кошелек, какой кошелек
мдя а тэги то я и не заметил. каюсь pray

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 15.03.2017, 16:02
 
Ответить
Сообщениеэээээ. название темы то исправлено. и вполне адекватное.Было
Цитата
Создаем работующую формулу в exel для вытягивания данных

стало то что стало.
Кошелек, кошелек, какой кошелек
мдя а тэги то я и не заметил. каюсь pray
Автор - китин
Дата добавления - 15.03.2017 в 15:51
DSA Дата: Среда, 15.03.2017, 16:18 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, Вот и я не понял что опять не так(( где опять лопухнулся ... Не пошла формула((( массив большой и много нюансов массив в приложении... Посмотрите??? Есля я Вам не надоел еще))) про кошелек понял...)))
К сообщению приложен файл: _2003_1.xls (84.0 Kb)
 
Ответить
Сообщениекитин, Вот и я не понял что опять не так(( где опять лопухнулся ... Не пошла формула((( массив большой и много нюансов массив в приложении... Посмотрите??? Есля я Вам не надоел еще))) про кошелек понял...)))
Автор - DSA
Дата добавления - 15.03.2017 в 16:18
DSA Дата: Среда, 15.03.2017, 16:19 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, Что такое теги??? Понял исправил тегу с формулой простите...


Сообщение отредактировал DSA - Среда, 15.03.2017, 16:30
 
Ответить
Сообщениекитин, Что такое теги??? Понял исправил тегу с формулой простите...
Автор - DSA
Дата добавления - 15.03.2017 в 16:19
Wasilich Дата: Четверг, 16.03.2017, 01:33 | Сообщение № 17
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Макросом надежней. :)
[vba]
Код
Sub штук()
   Dim ps&, i&, tx$, st$, n&
   ps = Range("A" & Rows.Count).End(xlUp).Row
   Range("A1:A" & ps).Replace " шт", "шт", xlPart
   For i = 1 To ps
     tx = Cells(i, "A")
     n = InStr(tx, "шт") - 1
     If n > 1 Then
        st = Left(tx, n)
        n = InStrRev(st, " ")
        st = Mid(st, n + 1)
        Cells(i, "B") = Val(st)
     Else
        Cells(i, "B") = ""
     End If
   Next
End Sub

[/vba]
 
Ответить
СообщениеМакросом надежней. :)
[vba]
Код
Sub штук()
   Dim ps&, i&, tx$, st$, n&
   ps = Range("A" & Rows.Count).End(xlUp).Row
   Range("A1:A" & ps).Replace " шт", "шт", xlPart
   For i = 1 To ps
     tx = Cells(i, "A")
     n = InStr(tx, "шт") - 1
     If n > 1 Then
        st = Left(tx, n)
        n = InStrRev(st, " ")
        st = Mid(st, n + 1)
        Cells(i, "B") = Val(st)
     Else
        Cells(i, "B") = ""
     End If
   Next
End Sub

[/vba]
Автор - Wasilich
Дата добавления - 16.03.2017 в 01:33
sv2014 Дата: Четверг, 16.03.2017, 08:56 | Сообщение № 18
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
DSA, добрый день,вариант функции uuu в столбце C

[vba]
Код
Function uuu(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+ ?(?=шт)"
    If .test(t) Then uuu = CInt(.Execute(t)(0)) Else uuu = ""
End With
End Function
[/vba]
К сообщению приложен файл: example_16_03_2.xls (97.5 Kb)


Сообщение отредактировал sv2014 - Четверг, 16.03.2017, 08:56
 
Ответить
СообщениеDSA, добрый день,вариант функции uuu в столбце C

[vba]
Код
Function uuu(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+ ?(?=шт)"
    If .test(t) Then uuu = CInt(.Execute(t)(0)) Else uuu = ""
End With
End Function
[/vba]
Автор - sv2014
Дата добавления - 16.03.2017 в 08:56
DSA Дата: Четверг, 16.03.2017, 09:29 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Wasilich, Спасибо все работает))
 
Ответить
СообщениеWasilich, Спасибо все работает))
Автор - DSA
Дата добавления - 16.03.2017 в 09:29
DSA Дата: Четверг, 16.03.2017, 09:30 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sv2014, Добрый день! это макрос???
 
Ответить
Сообщениеsv2014, Добрый день! это макрос???
Автор - DSA
Дата добавления - 16.03.2017 в 09:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как вытянуть число, находящееся перед определенным текстом (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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