in column "A" I need to insert row after specific word, "First Out". is
there a macro for this?
I have over 7000 rows and one at a time is not good.
Thank you
Luke
in column "A" I need to insert row after specific word, "First Out". is
there a macro for this?
I have over 7000 rows and one at a time is not good.
Thank you
Luke
Sub Test()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "A").Value = "First Out" Then
Rows(i + 1).Insert
End If
Next i
End Sub
--
HTH
Bob Phillips
"Luke" <[email protected]> wrote in message
news:[email protected]...
> in column "A" I need to insert row after specific word, "First Out". is
> there a macro for this?
> I have over 7000 rows and one at a time is not good.
> Thank you
> Luke
>
>
>
Thank you Bob
Luke
"Bob Phillips" wrote:
> Sub Test()
> Dim iLastRow As Long
> Dim i As Long
>
> iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
> For i = iLastRow To 1 Step -1
> If Cells(i, "A").Value = "First Out" Then
> Rows(i + 1).Insert
> End If
> Next i
>
> End Sub
>
>
> --
> HTH
>
> Bob Phillips
>
> "Luke" <[email protected]> wrote in message
> news:[email protected]...
> > in column "A" I need to insert row after specific word, "First Out". is
> > there a macro for this?
> > I have over 7000 rows and one at a time is not good.
> > Thank you
> > Luke
> >
> >
> >
>
>
>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks