Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
преобразовать текст в таблицу
 
#1
13.08.2018 16:08:41
Добрый день друзья,
Столкнулся с задачей подсчета ключей.
подскажите формулу

Необходимо в выделенном диапазоне (пусть это будет ячейка А2 как в примере) расставить слова выделенные голубым цветом в столбец B. При чем каждое новое слово в следующую ячейку, а текст в скобках в соседнюю ячейку столбца С.
Изменено: Karniel - 13.08.2018 16:09:54
 
 
 
#2
13.08.2018 16:29:16
Формулами довольно затруднительно.
Макросом можно.
 
 
 
#3
13.08.2018 16:32:43
Можно и макросом, если это проще.  
 
 
 
#4
13.08.2018 16:38:20
у вас в качестве разделителя неразрывный пробел стоит
он всегда используется?
 
 
 
#5
13.08.2018 16:40:47
разбивал по скобкам, не по цвету. Выделяете Вашу ячейку, запускаете макрос
Код
Sub spl()
s = Split(ActiveCell.Value, ")")
For i = LBound(s) To UBound(s)
    s2 = Split(s(i), "(")
    ActiveCell.Offset(a, 1) = Replace(s2(LBound(s2)), Chr(160), "")
    ActiveCell.Offset(a, 2) = s2(UBound(s2))
    a = a + 1
Next
End Sub
 
 
 
#6
13.08.2018 16:42:08
Цитата
Karniel написал:
выделенные голубым цветом
надеюсь это для примера :)
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(")"&A$2;ПОИСК("\";ПОДСТАВИТЬ(")"&A$2;")";"\";СТРОКА(A1)))+1;99);"(";ПОВТОР(" ";99));99));СИМВОЛ(160);)
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A$2;ПОИСК("\";ПОДСТАВИТЬ(A$2;"(";"\";СТРОКА(A1)))+1;99);")";ПОВТОР(" ";99));99));СИМВОЛ(160);)
 
 
 
#7
13.08.2018 17:42:55
Цитата
Stics написал:
у вас в качестве разделителя неразрывный пробел стоит он всегда используется?
Исключение. Случайно попал.
 
 
 
#8
13.08.2018 18:00:30
Цитата
yozhik написал:
разбивал по скобкам, не по цвету. Выделяете Вашу ячейку, запускаете макрос
Спасибо Макрос сработал
 
 
 
Страницы: 1
Наверх