how to group

[pedro]

Does anyone know how to make a macro which adds an empty row when the value of cell changes when going down on a worksheet.
example
Here's one column.
at start itlooks like this

pp
pp
hu
hu
ju
ju

after macro
pp
pp

hu
hu

ju
ju

Thanx inadvance.

 

[DonkeyOte]

say data in A1:a8 (need to accomodate additional rows for line inserts)

Sub Macro1()

DATA = Sheets("sheet1").Range("a1:a25")
crow = 1

For Each LDATA In DATA

If Range("A" & crow)<> Range("A" & crow + 1) Then
Rows(crow + 1 & ":" & crow + 1).Select
Selection.Insert Shift:=xlDown
crow = crow + 2
GoTo 99
End If

crow = crow + 1

99

Next LDATA

End Sub


_________________
LASW10
This message was edited by lasw10 on 2002-10-15 06:52

 

[pedro]

Thanx. Exactly what I needed.