Auto insert row based on data

**Sharp** · 08-07-2008, 02:43 PM

Hi,

is there away using VBA to do the following?

I have a list of data in column 'A' which may repeat the same text and will then be differnet. I want to insert a row before the text changes.....here is an example

so...column 'A' may look like this

Loop
Loop
Loop
Pool
Pool
Rate
Rate
Rate

I want to insert a row under each change....so it will look like this

Loop
Loop
Loop

Pool
Pool
Rate

Rate
Rate

any ideas???

thanks in advance

**VBA Noob** · 08-07-2008, 02:49 PM

Maybe

Sub InsertRow()
Dim LastRow As Long, i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = LastRow To 2 Step -1
        If Cells(i, "A").Value <> Cells(i - 1, "A").Value Then
            Rows(i).EntireRow.Insert shift:=xlDown
        End If
    Next i
End Sub

VBA Noob

Auto insert row based on data

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Auto insert row based on data

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions