Как перевести строки в 2 столбца?

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Как перевести строки в 2 столбца? (Формулы/Formulas)

vladimirr89

Дата: Понедельник, 19.03.2018, 17:25 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Необходимо массив данных перевести по принципу 1 столбец главный и привязывается к каждому значению следующему за ним и так по каждой стоке.
То есть первый столбец это id фильма, а значения следом - это id тэгов, необходимо чтобы каждому фильму соответствовали свои тэги. только у меня это в цифровом формате. Как транспонировать знаю, но в данном случае похоже что нужен ВБА и создание циклов. Может вы подскажете какой цикл мне поможет? Пример таблички с объяснением прикрепляю.

К сообщению приложен файл: 9184737.xlsx (20.2 Kb)

Ответить

sboy

Дата: Понедельник, 19.03.2018, 17:46 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
[vba]

Код

Sub dobav()
Dim result1()
Dim result2()
ReDim result1(1)
ReDim result2(1)
    For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        arr = Range(Cells(r, 1), Cells(r, Columns.Count).End(xlToLeft)).Value
            For i = 2 To UBound(Application.Transpose(arr))
                n = n + 1
                result1(n) = Cells(r, 1).Value
                result2(n) = arr(1, i)
                ReDim Preserve result1(UBound(result1) + 1)
                ReDim Preserve result2(UBound(result2) + 1)
            Next i
    Next
    Cells(4, 12).Resize(UBound(result1), 1) = Application.Transpose(result1)
    Cells(4, 13).Resize(UBound(result2), 1) = Application.Transpose(result2)
End Sub

[/vba]