VBA to find duplicate entries & move them

[Yunus2929]

Hello,

i have a Table with 10 titles. I need to find out the duplicated entries from one of the title in my example its (Anlagen ID). After i found out what the Duplicated entries are i have to take the entries from an other column and put it next to the first entry of the duplicated entries. After this I have to delete the duplicated rows. HOW_IT_HAS_TO_LOOK_LIKE.PNG

[AliGW]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about. Tell us what you are trying to do, not how you think it should be done.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. As you are new here, I have done it for you this time.)

[jindon]

Formula

AE2:
=IF(AND(COUNTIF(A$2:A2,A2)=1,COUNTIF($A$2:$A$17,A2)>1),TEXTJOIN(", ",TRUE,IF(($A$2:$A$17=A2)*(ROW($A$2:$A$17)<>ROW(A2)),$K$2:$K$17,"")),"")

copy down.

If separate column then

=IF(AND(COUNTIF(A$2:A2,A2)=1,COUNTIF($A$2:$A$17,A2)>1),TRANSPOSE(FILTER($K$2:$K$17,($A$2:$A$17=A2)*(ROW($A$2:$A$17)<>ROW(A2)),"")),"")

[Yunus2929]

Thank You,
sorry for my bad englisch..

[AliGW]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

[Yunus2929]

Unfortunately the problem is not solved yet. I try to solve it. i tried to copy the fomular but excel shows an error.

[jindon]

If you are using Office 365, it should work.

Otherwise upload a workbook.

Please upload a workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

Show a before and after situation with manually calculated results, explaining which information is data and which is results, and if it's not blindingly obvious how you have arrived at your results some explanatory notes as well.

To upload a file click the Go Advanced button at the foot of your post, look underneath the post area for the Manage Attachments section and take it from there.

[Yunus2929]

This is data

[jindon]

It doesn't work because your sheet layouts are different from the image in your opening post.

Should be
=IF(AND(COUNTIF(A$2:A2,A2)=1,COUNTIF($A$2:$A$870,A2)>1),TRANSPOSE(FILTER($E$2:$E$870,($A$2:$A$870=A2)*(ROW($A$2:$A$870)<>ROW(A2)),"")),"")

However, since your list is a table, better vba.

Please Login or Register  to view this content.

[Yunus2929]

Thats awesome Thank You
There is just one thing left. Is there any chance for example that after the Dahlienhof 7 it goes on with the Dahlienhof 9, Dahlienhof 13 and so on ?Unbenannt_LI.jpg

[jindon]

OOps a typo...

Please Login or Register  to view this content.

should be

Please Login or Register  to view this content.

[Yunus2929]

You are great man!!!! thanks a lot