Дублирование строк по количеству

Если вы используете Excel 2016, вы можете использовать PowerQuery, чтобы очень хорошо развернуть этот набор данных. У Кита есть очень полезная ссылка для вас в комментариях. Отфильтруйте нули, и вы почти у своего решения. В игру вступает небольшая сложность с возможностью появления этих повторяющихся рядов. Функция List.Numbers поможет вам в этом, если вы заинтересованы в том, чтобы немного проникнуть в суть языка M.

Тем не менее, это также не так уж сложно взломать в VBA. Я бы предложил немного другую стратегию, которая заключается в том, чтобы просто перебирать диапазон вашей кросс-таблицы, выдергивая заголовки строк и столбцов, когда вы набираете количество больше 0.

Sub foo()

    Dim outputRow As Integer

    'start your output at whatever row is best
    outputRow = 1

    'set your range to cover the counts in your crosstab
    For Each c In Range("A1:Z99")
        If c.Value > 0 Then

            For i = 1 To c.Value

                    'write the values off the current row headers over to comparable positions in your output row
                    Worksheets("test2").Cells(outputRow, 3).Value = Cells(c.Row, 1).Value
                    Worksheets("test2").Cells(outputRow, 4).Value = Cells(c.Row, 2).Value
                    .
                    .
                    .

                    'write the values off the current column headers into output row
                    Worksheets("test2").Cells(outputRow, 8).Value = Cells(1, c.Column).Value

                outputRow = outputRow + 1
            Next i

        End If
    Next c
End Sub

Удачи, надеюсь поможет