Ребят помогите пожалуйста девушке!! Макрос

[SilkBand]

Суть проблемы на дворе зачетная неделя а у меня висит хвост в виде макроса по exel, а я ничего не понимаю помогите кому не трудно пожалуйста!

Вот задание:

Имеется столбец, состоящий из одного или более столбцов меньшей высоты, содержащих числа; соседние столбцы разделены между собой одной или более пустыми ячейками. Во второй столбец записать высоты этих столбцов.

[EducatedFool]

Вот весь код:

Код: Выделить всё

[color=darkblue]Sub[/color] СверхсложныйМакрос()
    [color=darkblue]Dim[/color] SmallColumn [color=darkblue]As[/color] Range: [b:b].ClearContents: [b1] = "Высоты:"
    [color=darkblue]For[/color] [color=darkblue]Each[/color] SmallColumn [color=darkblue]In[/color] Range("a:a").SpecialCells(xlCellTypeConstants).Areas
        Range("b" & Rows.Count).End(xlUp).Offset(1) = SmallColumn.Rows.Count
    [color=darkblue]Next[/color] SmallColumn
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Пример файла:

[SilkBand]

Спасибо Вам огромное, Вы меня просто спасли, спасибо что не бросили в беде.