Finding the last one
 

I have colums and rows of data. The data is grouped in four rows down
two columns across. I sometime have repeating data. I am trying ot
figure out a way so that it looks through the colum find the first and
the last then deletes all but the last.

Ex.

Layer1
Layer2
Layer3
Layer4
Layer5 <----delete this one
Layer5 <----delete this one
Layer5 <----delete this one
Layer5 <--- keep this one

It's always the last part of the data. Layer five is the highest it
will go if that help. Thanks.

Finding the last one
 

This is very easy. Too easy

RowCount = 1
do while cells(RowCount,"A").value < ""
if cells(RowCount,"A").value = _
cells(RowCount + 1,"A").value then

Rows(RowCount).delete
else
RowCount = RowCount + 1
end if
loop


" wrote:

I have colums and rows of data. The data is grouped in four rows down
two columns across. I sometime have repeating data. I am trying ot
figure out a way so that it looks through the colum find the first and
the last then deletes all but the last.

Ex.

Layer1
Layer2
Layer3
Layer4
Layer5 <----delete this one
Layer5 <----delete this one
Layer5 <----delete this one
Layer5 <--- keep this one

It's always the last part of the data. Layer five is the highest it
will go if that help. Thanks.

Finding the last one
 

On Thu, 20 Sep 2007 09:08:13 -0700, wrote:

I have colums and rows of data. The data is grouped in four rows down
two columns across. I sometime have repeating data. I am trying ot
figure out a way so that it looks through the colum find the first and
the last then deletes all but the last.

Ex.

Layer1
Layer2
Layer3
Layer4
Layer5 <----delete this one
Layer5 <----delete this one
Layer5 <----delete this one
Layer5 <--- keep this one

It's always the last part of the data. Layer five is the highest it
will go if that help. Thanks.

Something like this?
---
Dim Rng As Range, n As Long, i As Long

Set Rng = ActiveSheet.Range("B3:B100")
n = Rng.Cells(Rng.Rows.Count, 1).End(xlUp).Row - Rng.Cells(1, 1).Row + 1
For i = n - 1 To 2 Step -1
If Rng.Cells(n, 1) < Rng.Cells(i - 1, 1) Then Exit For
Next
If i < n Then
Rng.Range(Rng.Cells(i - 1, 0), Rng.Cells(n - 1, 0)).Delete xlShiftUp
End If
---

Regards,

B.

Finding the last one
 

How would I do it for the case that I have to look at every 4th row,
not every row.

Finding the last one
 

Instead of my original code change the count increment from 1 to 4
from
RowCount = 1
do while cells(RowCount,"A").value < ""
if cells(RowCount,"A").value = _
cells(RowCount + 1,"A").value then

Rows(RowCount).delete
else
RowCount = RowCount + 1
end if
loop

to:
RowCount = 1
match = False
do while cells(RowCount,"A").value < ""
if cells(RowCount,"A").value = _
cells(RowCount + 1,"A").value then

Rows(RowCount).delete
MAtch = true
else
if Match = true then
RowCount = RowCount + 1
Mtch = False
else
RowCount = RowCount + 4
end if
loop



" wrote:

How would I do it for the case that I have to look at every 4th row,
not every row.

Finding the last one
 

On Thu, 20 Sep 2007 10:53:53 -0700, wrote:

How would I do it for the case that I have to look at every 4th row,
not every row.

Like Joel already said, you have to move by 4, not 1:
ie.
For i = n - 1 To 2 Step -1
should be
For i = n - 1 To 2 Step -4

Regards,

B.