Извлечение из таблицы данные в столбцы

[zpi1976]

Доброй ночи. Есть таблица, из которой нужно извлечь данные в столбцы. В таблице имеется число и сами данные, а в столбцы нужно добавить и порядковый номер, который должен в последующие месяца отображаться нарастающим итогом, например:если в январе порядковый номер закончился числом 12, то февраль должен начаться с цифры 13.
Данные должны извлекаться по каждой позиции, но не суммой в один день или в одну позицию.
Пример прилагается.
Спасибо.

[IgorGO]

Sub ReStruct()
  Dim r0#, r1#, r2#, a#, c#, i#, rg As Range
  r0 = 6: r1 = 6: r2 = 7: i = 1
  Do
    Set rg = Cells(r1 + 1, 3).Resize(Cells(r1, 2).End(xlDown).Row - r1, Cells(r1, 2).End(xlToRight).Column - 2)
    Set rg = rg.SpecialCells(xlCellTypeConstants)
    For a = 1 To rg.Areas.Count
      For c = 1 To rg.Areas(a).Cells.Count
        Cells(r2 - 1 + i, 40) = Cells(r1, rg.Areas(a).Cells(c).Column): Cells(r2 - 1 + i, 42) = rg.Areas(a).Cells(c)
        i = i + 1
      Next
    Next
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Cells(r2 + i - rg.Cells.Count - 1, 40).Resize(rg.Cells.Count, 1), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
      .SetRange Cells(r2 + i - rg.Cells.Count - 1, 40).Resize(rg.Cells.Count, 3)
      .Header = xlGuess: .MatchCase = False
      .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
    End With
    Set rg = Cells(r2 + i - rg.Cells.Count - 1, 41).Resize(rg.Cells.Count, 1)
    rg.Formula = "=row()-" & r0: rg.Copy:  rg.PasteSpecial xlValues
    r1 = Cells(r1, 2).End(xlDown).End(xlDown).Row
  Loop Until r1 = Rows.Count
End Sub

[Казанский]

Пробуйте..

[zpi1976]

Спасибо. Иду дальше работать.

[zpi1976]

Казанский, для другого случая сделайте, пожалуйста свой пример, только формулами, без макросов, и нужно отделить все месяца друг от друга на три ячейки.
Спасибо.

[Казанский]

Сообщение от zpi1976

для другого случая сделайте, пожалуйста свой пример, только формулами, без макросов

Для какого другого?
Формулами не сделаю, только макросом.