Перенос части данных в другую ячейку

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

Перенос части данных в другую ячейку (Формулы/Formulas)

turist2009

Дата: Суббота, 27.01.2018, 18:25 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2016

Здравствуйте.
Подскажите, пожалуйста, как решить проблему?
Есть колонка с данными, где /10/ это кратность поставки.

F17612045 Вставка торкс 10мм эскадрильная Т45х120мм /10/240
F17612050 Вставка торкс 10мм эскадрильная Т50х120мм /10/240
F17612055 Вставка торкс 10мм эскадрильная Т55х120мм /10/240
F1763010 Вставка TORX T10 /10/240
F1763015 Вставка TORX T15 /10/240
F1763020 Вставка TORX T20 /10/240

Как выделить кратность поставки в отдельную колонку?

Ответить

Pelena

Дата: Суббота, 27.01.2018, 18:37 | Сообщение № 2

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

Ранг: Местный житель

Сообщений: 19511

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Данные -- текст по столбцам -- с разделителем -- разделитель указать /
Потом лишние столбцы удалить
Или формулой можно

Код

=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A1;"/";ПОВТОР(" ";99));99;99))

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

sv2014

Дата: Суббота, 27.01.2018, 20:57 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 226

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

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

Excel 2013

turist2009, вариант функции в столбце B

[vba]

Код

Function vvv(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
If .test(t) Then vvv = CInt(.Execute(t)(.Execute(t).Count - 2)) Else vvv = ""
End With
End Function

[/vba]

К сообщению приложен файл: example_27_01_2.xls (35.0 Kb)

Ответить

vikttur

Дата: Воскресенье, 28.01.2018, 03:00 | Сообщение № 4

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

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

Сообщений: 2941

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

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

Если количество символов справа не меняется и нужное число 2-значное

Код

=--ЛЕВБ(ПРАВБ(A1;6);2)

Если у искомого >2 знаков:

Код

=--ПОДСТАВИТЬ(ЛЕВБ(ПРАВБ(A1;8);5);"/";)

Вне зависимости от количества знаков справа и в искомом числе:

Код

=--ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("/";A1)+1;5);"/";" ");5)

Вариант без формул. Если исходные данные нужны, копировать их в другой диапазон.
Выделить диапазон. Ctrl+H (инструмент НАЙТИ/ЗАМЕНИТЬ). Делаем две замены.
В ЗАМЕНИТЬ пусто (ничего не пишем). В НАЙТИ:
"* /"
второй раз
"/*"

Сообщение отредактировал vikttur - Воскресенье, 28.01.2018, 03:10

Ответить

sv2014

Дата: Воскресенье, 28.01.2018, 18:15 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 226

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

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

Excel 2013

turist2009, еще вариант функции в столбце D

[vba]

Код

Function uuu$(t$)
uuu = StrReverse(Split(StrReverse(t), "/", 3)(1))
End Function

[/vba]

К сообщению приложен файл: example_28_01_2.xls (37.5 Kb)

Ответить

Перенос части данных в другую ячейку (Формулы/Formulas)

Страница 1 из 1
1