Страницы: 1
RSS
Преобразовать таблицу: месяцы из строки перенести в столбец, Месяцы должны идти друг за другом вертикально
 
Добрый день!
Друзья, прошу помощи. Совсем запутался.
Дана таблица с условными продажами, месяцы идут друг-за-другом горизонтально, июнь-июль-август.
Мне нужно данную таблицу преобразовать к виду, когда эти месяцы и данные в них идут друг-за-другом, но вертикально. При этом строки с "код Итого" не должны переносится.
Я не жду, что мне все сделают, свои "наработки" есть, просто прошу подсказать каким способом, методом это лучше сделать. Может у кого-нибудь есть готовый кейс.

Пример прикрепляю.
Изменено: OblivionR - 24.06.2019 22:08:58
 
Так трудно было самому  взять часть текста из сообщения...
 
Добрый!
на pq делается элементарно
 
формулы из избушки
 
Задачу решил сам, нужного результата добился. Получился правда код-костыль какой-то.
Код
Public Sub aaaa()
Dim i As Long, k As Long, f As Long

For i = 3 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
   
   For k = 8 To 10
    
    If Cells(i, k) <> "" Then
       For f = 1 To 7
       
       
            If InStr(Cells(i, 7), "Итог") > 0 Then
            GoTo lll
            End If
        
Sheets(3).Cells(Sheets(3).Cells(Rows.Count, f).End(xlUp).Row + 1, f) = Sheets(2).Cells(i, f)
Sheets(3).Cells(Sheets(3).Cells(Rows.Count, f).End(xlUp).Row, 8) = Sheets(2).Cells(i, k)
Sheets(3).Cells(Sheets(3).Cells(Rows.Count, f).End(xlUp).Row, 9) = Sheets(2).Cells(2, k)

        Next f
        End If
    Next k
   
lll:
Next i

End Sub
Страницы: 1
Наверх