Формирование текста и его деление на столбцы

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

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

26.11.2016 23:26:30

Добрый день!
Прошу подсказать, как грамотно и быстро можно "отсортировать" текст в первом столбце для его формирования по в другие последующие столбцы.

Прикрепленные файлы

Книга1.xlsx (9.61 КБ)

Изменено: dm_pm - 26.11.2016 23:30:18

Sanja

Модератор

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

27.11.2016 10:07:20

Количество предметов: =ЕСЛИОШИБКА(--ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(A2;ПОИСК("предм.";A2)-5;2));"-";"");"")
Цвет: =ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(A2;ПОИСК("цвет:";A2)+5;99));"")
Если sv2013 угадал с конечным результатом по названию (см.сообщение ниже), то
Название: =ЕСЛИОШИБКА(ПСТР(A2;ПОИСК("^";ПОДСТАВИТЬ(A2;"""""";"^";1))+2;ПОИСК("^";ПОДСТАВИТЬ(A2;"""""";"^";2))-ПОИСК("^";ПОДСТАВИТЬ(A2;"""""";"^";1))-2);"")

Изменено: Sanja - 27.11.2016 12:42:24

Согласие есть продукт при полном непротивлении сторон

sv2013

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

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

27.11.2016 12:14:52

добрый день,не нашел,как Вам надо,вариант функций в столбцах B,C,D файл-примера

Код
Function uuuu$(t$) With CreateObject("VBScript.RegExp"): .Pattern = " \d+(?=-(?:ми\|х) предм\.)" If .test(t) Then uuuu = .Execute(t)(0) Else uuuu = "" End With End Function

Код
Function vvvv$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "цвет:.+$" If .test(t) Then vvvv = Mid(.Execute(t)(0), 6) Else vvvv = "" End With End Function

Код

Function yyyy$(t$)
With CreateObject("VBScript.RegExp")
.Pattern = "^\"""
t = .Replace(t, "")
  .Pattern = """(.+)""": .Global = True
   If .test(t) Then yyyy = Replace(.Execute(t)(0).Submatches(0), """", "") Else yyyy = ""
 End With
End Function

Прикрепленные файлы

example_27_11_2016_pl_1.xls (44 КБ)

Изменено: sv2013 - 27.11.2016 12:15:44

Читают тему