Разделение массива данных на части

[Евгений К.]

Здравствуйте. Помогите разделить данные в Excel на блоки.

Задача такая: в столбце D начиная со строчки 4 (D4 то бишь) необходимо чтобы макрос проверял значение, и если оно совпадает с предыдущим, то ничего не делал и шел дальше, а если значение отличается, то делал новую строку (не только в данном столбце, в вцелом по странице).

Т.е., у меня в столбце D номера, необоходимо чтобы макрос разделил данные по этим номерам на отдельные блоки. Данные начинаются с ячейки D3.

Зарание благодарю!

[EducatedFool]

Будет пример файла - будет макрос.

[doober]

как вариант

 Sub Delim()
Dim rng
 rng = Sheets("Лист1").Range("d1:" & Sheets("Лист1").Columns(4).SpecialCells(xlCellTypeConstants).Address)
For n = UBound(rng) To 4 Step -1
If rng(n, 1) <> rng(n - 1, 1) Then
   Rows(n & ":" & n).Insert
End If
Next
End Sub