inserting blank rows in a data spreadsheet

[sharonk]

Help.
I have created a data spreadsheet with numerous columns. I have sorted this spreadsheet by P/N. I would like for Excel to automatically insert a blank row each time this field (P/N) changes.

 

[Russ At Index]

Hi Sharonk, Welcome To The Board,

Try copying this into VB.

Sub InsertRows()
Dim rng As Range
Set rng = Range("A1")
While rng.Value <> ""
If rng.Value <> rng.Offset(1).Value Then
rng.Offset(1).EntireRow.Insert
Set rng = rng.Offset(1)
End If
Set rng = rng.Offset(1)
Wend
End Sub


HTH

Russ

 

[sharonk]

Thank you so much. That worked beautifully.
sharonk