Compare Rows - any unique into new sheet / delete duplicates

[buffyslay]

Compare Rows - any unique into new sheet / delete duplicates

OK, I have a worksheet comparing sets of data in one sheet. Many
columns. around 2500 rows


1: I need to compare rows and copy any unique values into a different
sheet.
then i need to split these out based on the value in col A (there
will only be 2 values)


2. back to original doc, this now needs all the duplicates removing


simple?

 

[onlyadrafter]

Hello,

1: I need to compare rows and copy any unique values into a different
sheet.

comparing which cells in which columns. e.g. Col A only, Col A and Col B, etc...

Perhaps if you gave a small sample of your data and the expected results.

 

[buffyslay]

well, what i need to do is pull out any unique *row*, its not at cell level,

 

[buffyslay]

although col A will have different data.... thats a pain

i am comparing this month headcount against last months, number of cols / rows will differ, so need to compare cols B to usedrange

 

[onlyadrafter]

Hello,

I know you need a unique row, but how do you determine a unique row, if row 1 is

A B C D E

and row 2 is

F G H I E

is this unique or not.

Can you give a sample of data and the expected results?

 

[buffyslay]

your example above is correct

Date 1 : a b c d
Date 2 : a b c d - match

Date 1 : a b c d
Date 2 : a b c e - flag

 

[scu77]

hi..

try like this

1. union cells

ex> a1 & "," & b1 & "," c1
a2 & "," & b2 & "," c2


2. Advanced filter / unique item


3, text to columns / comma

 

[buffyslay]

thanks - but i want (to be awkward) to do this in VBA

I know that i will have at least 4000 records and want to automate is....

maybe i need a multi array?

so far i have

Dim R, C
Dim Arr()
R = ActiveSheet.UsedRange.Rows.Count - 1
C = ActiveSheet.UsedRange.Columns.Count - 1
ReDim Arr(R, C)


now i have to populate it???