Hope someone can help, I'm trying to work out a macro or some code that will delete duplicate entries in the row not column.
example:
Cell A Cell B Cell C Cell D
1 YU2 ABH YU2 ABH YU2 ABH YU2 ABH
2 abc 123 yorkshire boston abc123
3 blean kent york dge 098
4
I want for instance cell D to retain the post code entry and the other entries to delete if they contain the same post code, else leave entry if value is different.
Hope you can help. Thanks
Hello stroudy,
Welcome to the Fourm!
There seems to be something missing. In the workbook there are only 3 columns while in your example there are 4 columns. I am guessing the workbook is correct. Can you advise me on which is correct?
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
Originally Posted by Leith Ross
Thanks The workbook is fine.
Hello stroudy,
Just to be sure I understand, you want to delete any row that has a duplicate postcode, correct?
No sorry I need it to be the cell or cells not rows
sorry I'll do a better example
CELL A CELL B CELL C
1AS FJX CVF T56 CFR 67J < this row is fine.
ASB FGH ASB FGH ASB FGH <Delete cell A AND B on this row not cell c
123 456 ADS FGH 123 456 <Only delete cell A on this row.
Please check example spreadsheet
Hi I need a code which will delete duplicates in cells in the same row.
See attachment. thanks
Hello stroudy,
The macro below has been added to a button in the attached workbook. This will remove the duplicates in columns "A" and "B".
Sub RemoveDuplicates() Dim Cell As Range Dim Rng As Range Dim RngEnd As Range Dim Wks As Worksheet Set Wks = ActiveSheet Set Rng = Wks.Range("A2") Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp) If RngEnd.Row < RngRow Then Exit Sub Else Set Rng = Wks.Range(Rng, RngEnd) For Each Cell In Rng If Cell = Cell.Offset(0, 1) Then Cell.Resize(1, 2).Value = "" End If Next Cell End Sub
Hi Thanks very much for this,
The macro works great but it only deletes the cells if they both are the same as the country. My fault due to explanation. I also need A2 =123 to delete as this matches country criteria.
Thanks
Hello stroudy,
Please take your time and provide a sample workbook that accurately reflects the data and the layout. Include examples of the data showing both before and after results. This will ensure that you are provided with a complete and accurate solution.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks