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

Вход

Регистрация

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

 

= Мир MS Excel/Как вытащить искомое значение из строки ячейки? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как вытащить искомое значение из строки ячейки? (Формулы/Formulas)
Как вытащить искомое значение из строки ячейки?
oxojeck Дата: Пятница, 18.01.2019, 14:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет друзья! Смотрите файл. Есть многострочная ячейка, мне нужно "вытащить" оттуда значение каждой строки и прописать в соответствующую колонку. То есть на примере трех колонок, "европейские материалы, патирование, металлические ручки от Gamet (Польша), бесшумные направляющие с доводчиком Quadro от Hettich (Германия), петли - Intermat от Hettich" записываем в колонку "Особенности", "Афина" в столбец "Коллекция", "Классический" в колонку "Стиль" и т.д. Какую тут формулу использовать? Заранее спасибо!
К сообщению приложен файл: example.xlsx(8.5 Kb)
 
Ответить
СообщениеВсем привет друзья! Смотрите файл. Есть многострочная ячейка, мне нужно "вытащить" оттуда значение каждой строки и прописать в соответствующую колонку. То есть на примере трех колонок, "европейские материалы, патирование, металлические ручки от Gamet (Польша), бесшумные направляющие с доводчиком Quadro от Hettich (Германия), петли - Intermat от Hettich" записываем в колонку "Особенности", "Афина" в столбец "Коллекция", "Классический" в колонку "Стиль" и т.д. Какую тут формулу использовать? Заранее спасибо!

Автор - oxojeck
Дата добавления - 18.01.2019 в 14:08
_Boroda_ Дата: Пятница, 18.01.2019, 14:18 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14125
Репутация: 5696 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A2;СИМВОЛ(10);ПОВТОР(" ";999));999*СТОЛБЕЦ(A2)-998;999))
К сообщению приложен файл: example-23-1.xlsx(9.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($A2;СИМВОЛ(10);ПОВТОР(" ";999));999*СТОЛБЕЦ(A2)-998;999))

Автор - _Boroda_
Дата добавления - 18.01.2019 в 14:18
oxojeck Дата: Пятница, 18.01.2019, 14:31 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо большое, то что нужно!
 
Ответить
СообщениеСпасибо большое, то что нужно!

Автор - oxojeck
Дата добавления - 18.01.2019 в 14:31
sboy Дата: Пятница, 18.01.2019, 14:34 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2368
Репутация: 671 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
2 пользовательские функции:
[vba]
Код
Function oxojeck1(t As String, q As Integer) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:Общие\|)(.+)\|"
        .Global = True
        oxojeck1 = .Execute(t)(q).Submatches(0)
    End With
End Function

Function oxojeck2(t As String, p As String) As String
p = Replace(Replace(p, "(", "\("), ")", "\)")
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:" & p & "\|)(.+)"
        oxojeck2 = .Execute(t)(0).Submatches(0)
    End With
End Function
[/vba]
К сообщению приложен файл: example-6-.xlsm(16.0 Kb)


Сообщение отредактировал sboy - Пятница, 18.01.2019, 14:34
 
Ответить
СообщениеДобрый день.
2 пользовательские функции:
[vba]
Код
Function oxojeck1(t As String, q As Integer) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:Общие\|)(.+)\|"
        .Global = True
        oxojeck1 = .Execute(t)(q).Submatches(0)
    End With
End Function

Function oxojeck2(t As String, p As String) As String
p = Replace(Replace(p, "(", "\("), ")", "\)")
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:" & p & "\|)(.+)"
        oxojeck2 = .Execute(t)(0).Submatches(0)
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 18.01.2019 в 14:34
oxojeck Дата: Пятница, 18.01.2019, 16:20 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
2 пользовательские функции:
Function oxojeck1(t As String, q As Integer) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:Общие\|)(.+)\|"
        .Global = True
        oxojeck1 = .Execute(t)(q).Submatches(0)
    End With
End Function

Function oxojeck2(t As String, p As String) As String
p = Replace(Replace(p, "(", "\("), ")", "\)")
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:" & p & "\|)(.+)"
        oxojeck2 = .Execute(t)(0).Submatches(0)
    End With
End Function

Вот это супер решение, так как у меня исходных ячеек много, но есть нюанс, в некоторых добавляются новые свойства, а у Вас он ищет данные только по первой ячейке. Как можно решить это?
 
Ответить
Сообщение
Добрый день.
2 пользовательские функции:
Function oxojeck1(t As String, q As Integer) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:Общие\|)(.+)\|"
        .Global = True
        oxojeck1 = .Execute(t)(q).Submatches(0)
    End With
End Function

Function oxojeck2(t As String, p As String) As String
p = Replace(Replace(p, "(", "\("), ")", "\)")
    With CreateObject("VBScript.RegExp")
        .Pattern = "(?:" & p & "\|)(.+)"
        oxojeck2 = .Execute(t)(0).Submatches(0)
    End With
End Function

Вот это супер решение, так как у меня исходных ячеек много, но есть нюанс, в некоторых добавляются новые свойства, а у Вас он ищет данные только по первой ячейке. Как можно решить это?

Автор - oxojeck
Дата добавления - 18.01.2019 в 16:20
sboy Дата: Пятница, 18.01.2019, 16:29 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2368
Репутация: 671 ±
Замечаний: 0% ±

Excel 2010
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией
Можно еще с помощью Power Query разобрать (см. в файле)
К сообщению приложен файл: 0973537.xlsm(27.6 Kb)


Сообщение отредактировал sboy - Пятница, 18.01.2019, 16:37
 
Ответить
СообщениеПрименить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией
Можно еще с помощью Power Query разобрать (см. в файле)

Автор - sboy
Дата добавления - 18.01.2019 в 16:29
_Boroda_ Дата: Пятница, 18.01.2019, 16:30 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14125
Репутация: 5696 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А просто Данные - Текст по столбцам не подойдет?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА просто Данные - Текст по столбцам не подойдет?

Автор - _Boroda_
Дата добавления - 18.01.2019 в 16:30
oxojeck Дата: Пятница, 18.01.2019, 17:00 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией
Можно еще с помощью Power Query разобрать (см. в файле)

Прошу прощения за глупый вопрос, а как её применить ко всем ячейкам? Прикрепил пример про что я имею ввиду.
К сообщению приложен файл: example_2.xlsm(27.4 Kb)
 
Ответить
Сообщение
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией
Можно еще с помощью Power Query разобрать (см. в файле)

Прошу прощения за глупый вопрос, а как её применить ко всем ячейкам? Прикрепил пример про что я имею ввиду.

Автор - oxojeck
Дата добавления - 18.01.2019 в 17:00
itcenter_nv Дата: Понедельник, 21.01.2019, 09:38 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Ребята, добрый день! Нужна помощь.
Есть 2 условия и 2 таблицы, нужно, что бы в одну ячейку падала правильное искомое значение.
Возможно это сделать?
Более подробно в файле.
К сообщению приложен файл: 999.xlsx(11.2 Kb)
 
Ответить
СообщениеРебята, добрый день! Нужна помощь.
Есть 2 условия и 2 таблицы, нужно, что бы в одну ячейку падала правильное искомое значение.
Возможно это сделать?
Более подробно в файле.

Автор - itcenter_nv
Дата добавления - 21.01.2019 в 09:38
Pelena Дата: Понедельник, 21.01.2019, 10:53 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 13660
Репутация: 3004 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
itcenter_nv, прочитайте Правила форума и создайте свою тему


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеitcenter_nv, прочитайте Правила форума и создайте свою тему

Автор - Pelena
Дата добавления - 21.01.2019 в 10:53
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как вытащить искомое значение из строки ячейки? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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