Добрый день! Друзья, прошу помощи. Совсем запутался. Дана таблица с условными продажами, месяцы идут друг-за-другом горизонтально, июнь-июль-август. Мне нужно данную таблицу преобразовать к виду, когда эти месяцы и данные в них идут друг-за-другом, но вертикально. При этом строки с "код Итого" не должны переносится. Я не жду, что мне все сделают, свои "наработки" есть, просто прошу подсказать каким способом, методом это лучше сделать. Может у кого-нибудь есть готовый кейс.
Задачу решил сам, нужного результата добился. Получился правда код-костыль какой-то.
Код
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