# Deleting/Clearing duplicate range of cells

S

#### Steve

Below is my data.
If a row range of cells is identical to another, could a macro be written
to find the duplicated rows, and clear those cells ?
As follows:
M3:R3 no duplicate, so keep M3:R3
M4:R4 identical to M5:R5, so delete/clear M5:R5
M6:R6 identical to M7:R7, so delete/clear M7:R7
M8:R8 identical to M9:R9, so delete/clear M9:R9
M10:R10 identical to M11:R11 & M12:R12, so delete/clear M11:R12
There will be no consistency as to what rows would be duplicated and
therefore needing to be cleared, meaning tomorrow it might be row 4 that is a
duplicate to 3, so 4 would need to be cleared; 5, 6, 7 & 8 might be
identical, so 5, 6 & 7 would need to be cleared, etc.

Row M N O P Q R
3 90 100 580 3 9000 2010042
4 90 1000 191 6 9100 2010041
5 90 1000 191 6 9100 2010041
6 90 1000 191 6 9100 2010042
7 90 1000 191 6 9100 2010042
8 90 1000 191 6 9100 2010062
9 90 1000 191 6 9100 2010062
10 90 1000 191 9 9100 2010071
11 90 1000 191 9 9100 2010071
12 90 1000 191 9 9100 2010071

Thank you,

Steve

S

#### Steve

Just delete the duplicated data in M:R.

A:L has data I'll still need.

S

#### Steve

yes, they'll always be next to each other.

S

#### Steve

That is nothing short of amazing. THANK YOU very much.

As you probably ascertained, the end down did go to the last row.

And I'm assuming you won't mind, but I did take the liberty to change the
name of the macro from blah to kudos.

Many thanks gain,

Steve

p45cal said:
assuming the the last of the rows involved can be reliably ascertained
from selecting M3 then pressing End, then the down button (you don't
have to do this, it's just the technique the macro uses to identify the
rows involved) then this code should do it. It assumes the correct sheet
is active:

S

#### Steve

Thank you again.

Steve

p45cal said:
Good!
On reviewing the code jut now, I notice I left some debugging lines that
really oughtn't to be there, so please remove these:

Rows(i).Select
cll.Select

they'll slow it down.

That is nothing short of amazing. THANK YOU very much.

--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?u=558