Don Selecting cells

[m]

Dear Don
Thank you for your prompt reply, unfortunately I couldn't
use your code but you still might be able to help.
What I am trying to do is write a macro which will delete and remove all
the rows between the first two matching numbers in a column including one
matching number, because all the data between matching numbers is repeat
data

Yours Mark

 

[Don P]

m,

Please keep your reply in the same thread.

Sub test()
Set rng = Selection
For r = rng.Rows.Count To 1 Step -1
V = rng.Cells(r, 1).Value
If rng.Cells(r, 1).Value = rng.Cells(r - 1, 1) Then
rng.Rows(r).EntireRow.Delete
End If
Next r
End Sub


Don Pistulka

 

[Don P]

Sorry about that. I did not know if you were still on-line.

Anyway, we Don's have to stick together.

Don Pistulka

 

[Don Guillett]

Don. No need to be sorry. I didn't mind at all.

 

[Don Guillett]

What would it be numbers? ____Text______
Exact examples

 

[Don P]

m,

Excuse me for butting in again, but appears to me from the way you describe
the problem, deleting all duplicates would work:

Sub test2()
Set rng = Selection
For r = rng.Rows.Count To 1 Step -1
dcell = rng.Cells(r, 1).Value
If Application.WorksheetFunction.CountIf(rng.Columns(1), dcell) > 1 Then
rng.Rows(r).EntireRow.Delete
End If
Next r
End Sub


Don Pistulka