Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Транспонировать данные и сопоставить с первым столбом, Все значения из столбов B и т.д. транспонировать в строки и сопоставить с значениями в столбце A
 
Коллеги, привет!
В форме есть много тем по транспонированию столбов и строк, по объединению данных из разных столбов в один, по построению сводных таблиц из текстовых значений, но, к сожалению, я так и не нашла решения своей задачи. Если в форуме уже решалась подобная задача, пожалуйста, скиньте ссылку.

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

Буду благодарна за любую помощь!
 
irina90, https://www.planetaexcel.ru/techniques/3/55/
 
с помощью PQ
 
Подредактированный под вашу задачу макрос 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 Дек 2018 17:56:33
 
Коллеги, спасибо огромное, что откликнулись!
Спасибо за ссылку и макрос!

С наступающим Новым годом!  
Изменено: irina90 - 29 Дек 2018 18:06:37
 
Anton555, как Вы сделали этот шаг?
Код
#"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(Источник, {"Группа "}, "Атрибут","Значение"),
 
artyrH,
 
Anton555, спасибо. попробую.
 
Вариант.
Страницы: 1
Читают тему (гостей: 1)
Наверх