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

Вход

Регистрация

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

 

= Мир MS Excel/Как удалить из ячейки все значения кроме цифр и "х" - Мир MS Excel

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

Excel 2010
Подскажите формулу или макрос с помощью которого возможно будет из таких выражений:
Саморезы потай, крупная резьба, оксид 3,5х25 Т (1000 шт) В1
Саморезы 3,5х32 потай, крупная резьба, оксид (800 шт)
Саморезы потай, крупная резьба, оксид 3,5х37 (1000 шт) В1
Саморезы потай, крупная резьба, оксид 3,5х32 (30 шт) ПЕ-155
Сделать такие:
3,5х25
3,5х32
3,5х37
3,5х32

Очень большая наменклатура, все вручную сделать нереально( Разделять по столбцам пробовал - но также нериально по времени так как всего более 3000 позиций
 
Ответить
СообщениеПодскажите формулу или макрос с помощью которого возможно будет из таких выражений:
Саморезы потай, крупная резьба, оксид 3,5х25 Т (1000 шт) В1
Саморезы 3,5х32 потай, крупная резьба, оксид (800 шт)
Саморезы потай, крупная резьба, оксид 3,5х37 (1000 шт) В1
Саморезы потай, крупная резьба, оксид 3,5х32 (30 шт) ПЕ-155
Сделать такие:
3,5х25
3,5х32
3,5х37
3,5х32

Очень большая наменклатура, все вручную сделать нереально( Разделять по столбцам пробовал - но также нериально по времени так как всего более 3000 позиций
Автор - kronoss07
Дата добавления - 20.04.2017 в 00:56
buchlotnik Дата: Четверг, 20.04.2017, 01:19 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
можно UDFкой [vba]
Код
Function nom$(t$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[0-9]+[0-9õ\,]+"
        nom = .Execute(t)(0)
    End With
End Function
[/vba]
К сообщению приложен файл: htpm-f.xlsm (13.6 Kb)
 
Ответить
Сообщениеможно UDFкой [vba]
Код
Function nom$(t$)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[0-9]+[0-9õ\,]+"
        nom = .Execute(t)(0)
    End With
End Function
[/vba]
Автор - buchlotnik
Дата добавления - 20.04.2017 в 01:19
buchlotnik Дата: Четверг, 20.04.2017, 01:20 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
кросс - нехорошо
 
Ответить
Сообщениекросс - нехорошо
Автор - buchlotnik
Дата добавления - 20.04.2017 в 01:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалить из ячейки все значения кроме цифр и "х" (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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