removing duplicates from data

Hi All,

I am trying to write a piece of code that helps me to remove duplicates from my data and cleans up the results.
The code should find duplicates in the same colum and copy the data in the rows of these duplicates to one row (the one of the first duplicate). Then it should delete the now empty duplicates and move on to the next set of duplicates.
See the attached file for a before and after.

I hope I make myself clear, any help is greatly appreciated!

Thanks!
Schzuki

Output is on sheet2.

Thanks AB33! As I am kind of a novice, would you mind explaining me what the code does?

AB33, this is great!!!

Berlan,

Thank you

haha, I do get the general principle, now it's just the matter of understanding the pieces of code (yeah for google!).
Thanks for taking the time to explain!

okay, let's see if I got this:

You Dim the different variables as string ($) and long (&). What is the name of the type of data that is assigned to y (the () part)?

The code selects a range y and sets its size to the same size as the original data range (=(10,4)).

It then creates a library object. Within this library, comparisons are made between string values (.CompareMode=1)

It then runs through the data until the last value (=UBound)

The If-function is stil a bit of a mystery. (I don't get the .exists and .item commands)
However, it reorganises the data into range y.


Subsequently it clears a range in sheet2 and pastes range y into these cells.

Could you please explain the different steps in the IF-function?

If no data type is assigned to a variable, by default it means it is a Variant type.

The If-function is stil a bit of a mystery. (I don't get the .exists and .item commands)
However, it reorganises the data into range y.

This line test the key using dictionary script. As I mentioned earlier, It will take me the whole page of this site to explain line by line. I suggest you refer to VBA help on dictionary and other loops. But I were you, I first get the grips with arrays.