Всем привет друзья! Смотрите файл. Есть многострочная ячейка, мне нужно "вытащить" оттуда значение каждой строки и прописать в соответствующую колонку. То есть на примере трех колонок, "европейские материалы, патирование, металлические ручки от Gamet (Польша), бесшумные направляющие с доводчиком Quadro от Hettich (Германия), петли - Intermat от Hettich" записываем в колонку "Особенности", "Афина" в столбец "Коллекция", "Классический" в колонку "Стиль" и т.д. Какую тут формулу использовать? Заранее спасибо!
Всем привет друзья! Смотрите файл. Есть многострочная ячейка, мне нужно "вытащить" оттуда значение каждой строки и прописать в соответствующую колонку. То есть на примере трех колонок, "европейские материалы, патирование, металлические ручки от Gamet (Польша), бесшумные направляющие с доводчиком Quadro от Hettich (Германия), петли - Intermat от Hettich" записываем в колонку "Особенности", "Афина" в столбец "Коллекция", "Классический" в колонку "Стиль" и т.д. Какую тут формулу использовать? Заранее спасибо!oxojeck
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]
Добрый день. 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
Добрый день. 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
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией Можно еще с помощью Power Query разобрать (см. в файле)
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией Можно еще с помощью Power Query разобрать (см. в файле)sboy
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией Можно еще с помощью Power Query разобрать (см. в файле)
Прошу прощения за глупый вопрос, а как её применить ко всем ячейкам? Прикрепил пример про что я имею ввиду.
Применить 1 функцию ко всем ячейкам с данными, получившийся результат скопировать и сделать уникальный список. Поместить в заголовок и пользоваться 2функцией Можно еще с помощью Power Query разобрать (см. в файле)
Прошу прощения за глупый вопрос, а как её применить ко всем ячейкам? Прикрепил пример про что я имею ввиду.oxojeck
Ребята, добрый день! Нужна помощь. Есть 2 условия и 2 таблицы, нужно, что бы в одну ячейку падала правильное искомое значение. Возможно это сделать? Более подробно в файле.
Ребята, добрый день! Нужна помощь. Есть 2 условия и 2 таблицы, нужно, что бы в одну ячейку падала правильное искомое значение. Возможно это сделать? Более подробно в файле.itcenter_nv