excel vba - Visual basic delete duplicates keep unique -

Prior to placing rows with

is trying to delete rows with duplicate cell materials and unique values ​​.:

  R1A2AR3BR4CR5C  

In this scenario, only B is unique, both A and C are not unique Because they are more than once. (Most search solutions duplicative incorrectly found by thus creating unique values ​​& amp ;. b)

This is not a good place to ask for codes only. If you display your efforts, then someone will probably show you how to solve your problem. Finding code that is almost identical to the code you need here without trying to optimize the code that does not count as an attempt for most people.

You need to consider how the code you have designed your solution to consider the slots There are several ways for a good design in that design, but I usually recommend asking people by asking myself: "How do I manually do this?"

In your example list, the rows are sorted on the target column. Is this true about actual figures or can you sort the actual data through the target column?

The problem may be more difficult so that the data are not sorted and can not be sorted, although not impossible in this situation, I Sujaunga:

1. Find an empty column on the right side of your data.
2. Fill that column with row numbers.
3. Sort by target column.
4. Shown below.
5. Delete the columns of the row number sorted by the row number
6. . Delete the duplicate as

The algorithms assume that the rows are sorted.

If you were to delete rows, you will probably start at the top would mean that every time you need to include all the rows in each row of the cleared a few lines, then you Will decide later on. It's fast to start from below. I suggest you do something like this:

  Set the Stop Line Number RowCront & gt; 1 If RowCrnt The goal of the column column is equal to the target RowCrnt -1 then got 'is set to delete the bottom row of a block RowBlockBottom = RowCrnt RowCrnt = RowCrnt - 1 Do While RowCrnt column is equal RowBlockBottom column RowCrnt to target = RowCrnt - 1 loop RowCrnt + 1 RowBlockBottom Delete 'RowCrnt points rows in the front row or RowCrnt = RowCrnt be matched up against the line - one end of the loop  

Try "Run" on the above pseudo code on paper Think of Code Look for any deliberate or accidental errors It's an easy-to-use design that works for the most simple problems. If you can master this technique then you will be prepared to deal with many problems in future without the need of help.

I hope that the code you got will be included in the statements that will do everything in the above pseudo code. Try to create the necessary macros by changing the pseudo code with relevant statements Do not forget to save a copy of your data before the macro trial.

If the code does not work as you require and why you can not see it, post it here together it does what it does and you want to do it Interpretation of separation between Someone will help.

Good luck.