• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Duplicate Values Deletion

Hi Everyone,
I have some keywords on Sheet1, I need to compare with Sheet 2 and delete the entire row from Sheet2 if keywords match.
But the issue is Keywords in Sheet1 are not in separate cells, they are in few rows separated by the commas. Please share your formulas/thoughts on this.

Sheet Attached !!


Thanks and Regards,
Deepak Sharma
 

Attachments

  • Keywords Analysis.xlsx
    42.2 KB · Views: 8
Hi Rahul,

Sorry for late reply!

For Eg. If you see the Sheet1's Second Row, there is a keyword "antibacterial cleaning products" at last. So this keyword if find in Sheet2 (as it's in 814 Row), then this row should be deleted. That's it!
I need to search every keyword in next sheet & rows should be deleted from sheet2.

Regards,
Deepak Sharma
 
Yes, Thanks, Rahul! It worked fine. I am also trying to get Power Query add-on. But not able to show. Anyways will try again.

Thanks a lot again!

Regards,
Deepak Sharma
 
Thanks Rahul, Yes same I have downloaded as per 32 bit. but when after downloading when I went to show this tab in File>Options>Add-ons....Then selected COM Add-Ins>Go. I clicked on Power Query>OK, but it says Unloaded. Don't know why this is showing.
upload_2017-11-6_11-47-27.png
 
hii,

See if is ok with macro ? non power Query solution .


Regard
Rahul shewale
 

Attachments

  • Keywords Analysis.xlsm
    179.6 KB · Views: 1
hii,

pfa revised sheet.

Sub Macro2()

'

' Macro2 Macro

'



'

Rows("5:5").Select

Range(Selection, Selection.End(xlDown)).Select

ActiveWindow.SmallScroll Down:=21

Rows("5:1483").Select

Selection.Delete Shift:=xlUp

ActiveWindow.SmallScroll Down:=-30

Range("A5").Select

Sheets("Filter data").Columns("A:D").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Range("A1:D2"), CopyToRange:=Range("A5"), Unique:=False

Columns("D:D").Select

Selection.EntireColumn.Hidden = True

Range("F14").Select

End Sub

Rahul shewale
 

Attachments

  • Keywords Analysis.xlsm
    180 KB · Views: 4
Back
Top