Hello,

Is there a way to delete a rows that contain the same text/element as the
one above?

Many thanks

Arno

Hi,

There almost certainly is but you need to be more specific. What do you want
to compare? the entire row i.e. every cell or just 1 cell with the row above/

Mike

"Arno" wrote:

> Hello,
>
> Is there a way to delete a rows that contain the same text/element as the
> one above?
>
> Many thanks
>
> Arno
>

Hi Mike,

the entire row above - Thanks

"Mike H" wrote:

> Hi,
>
> There almost certainly is but you need to be more specific. What do you want
> to compare? the entire row i.e. every cell or just 1 cell with the row above/
>
> Mike
>
> "Arno" wrote:
>
> > Hello,
> >
> > Is there a way to delete a rows that contain the same text/element as the
> > one above?
> >
> > Many thanks
> >
> > Arno
> >

Hi Arno, Try this:

Sub delMatchedRows()
Dim lr As Long, x As Long
Dim c As Range
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
For Each c In Rows(i).Cells
If c.Value <> c.Offset(-1, 0).Value Then
x = x + 1
End If
Next
If x = 0 Then
Rows(i).Delete
End If
x = 0
Next
End Sub

"Arno" wrote:

> Hi Mike,
>
> the entire row above - Thanks
>
> "Mike H" wrote:
>
> > Hi,
> >
> > There almost certainly is but you need to be more specific. What do you want
> > to compare? the entire row i.e. every cell or just 1 cell with the row above/
> >
> > Mike
> >
> > "Arno" wrote:
> >
> > > Hello,
> > >
> > > Is there a way to delete a rows that contain the same text/element as the
> > > one above?
> > >
> > > Many thanks
> > >
> > > Arno
> > >