Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Транспонировать данные и сопоставить с первым столбом, Все значения из столбов B и т.д. транспонировать в строки и сопоставить с значениями в столбце A
 
#1
29.12.2018 14:12:02
Коллеги, привет!
В форме есть много тем по транспонированию столбов и строк, по объединению данных из разных столбов в один, по построению сводных таблиц из текстовых значений, но, к сожалению, я так и не нашла решения своей задачи. Если в форуме уже решалась подобная задача, пожалуйста, скиньте ссылку.

Задача - из такой таблицы:
Группа Слово 1Слово 2Слово 3
купить цветы москвадешево недорого
купить цветы москва дешево недорого
купить цветы москва дешево недорого
Получить такую:
Группа Слова
купить цветы москва
купить цветы дешево
купить цветы недорого
купить цветы москва дешево
купить цветы москва недорого
купить цветы москва дешево недорого
Итак, прикладываю файл с исходными данными и желаемым результатом (в файле две вкладки).

Буду благодарна за любую помощь!
 
 
 
#2
29.12.2018 14:16:29
irina90, https://www.planetaexcel.ru/techniques/3/55/
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
29.12.2018 17:39:53
с помощью PQ
 
 
 
#4
29.12.2018 17:55:56
Подредактированный под вашу задачу макрос Nordheim из темы "Трансформировать массив данных в таблицу из 2-х столбцов"
Код
Sub test()
    Dim arr(), ikey
    Dim i&, j&, x&
    arr = Range("a1").CurrentRegion.Value
    For Each ikey In arr
        If Not IsEmpty(ikey) Then i = i + 1
    Next
    ReDim iarr(1 To i - UBound(arr), 1 To 2)
    For i = 2 To UBound(arr)
        For j = 2 To UBound(arr, 2)
            If Not IsEmpty(arr(i, j)) Then
                x = x + 1
                iarr(x, 1) = arr(i, 1)
                iarr(x, 2) = arr(i, j)
            End If
        Next
    Next
   Sheets("Желаемый результат").Select
     [A2].Resize(UBound(iarr), 2) = iarr
End Sub
Изменено: casag - 29.12.2018 17:56:33
 
 
 
#5
29.12.2018 18:06:17
Коллеги, спасибо огромное, что откликнулись!
Спасибо за ссылку и макрос!

С наступающим Новым годом!  
Изменено: irina90 - 29.12.2018 18:06:37
 
 
 
#6
29.12.2018 18:22:07
Anton555, как Вы сделали этот шаг?
Код
#"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(Источник, {"Группа "}, "Атрибут","Значение"),
 
 
 
#7
29.12.2018 19:05:00
artyrH,
 
 
 
#8
29.12.2018 20:15:54
Anton555, спасибо. попробую.
 
 
 
#9
30.12.2018 12:01:17
Вариант.
 
 
 
Страницы: 1
Наверх