Macro to delete duplicate items -Help please
Solved/Closed
Carlos
-
Aug 11, 2010 at 10:41 AM
rizvisa1
rizvisa1
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
Related:
- Macro to delete duplicate items -Help please
- Outlook duplicate items remover 1.4.4 - Download
- Excel macro to delete columns based on header ✓ - Forum - Excel
- Excel - A macro to delete alternate rows - How-To - Office Software
- Avira Antivir - Deleted infected items without confirmation - How-To - Antivirus
- Excel - A macro to delete a particular cell value - How-To - Hardware
4 replies
rizvisa1
Aug 17, 2010 at 10:41 PM
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
Aug 17, 2010 at 10:41 PM
Could you please upload a sample EXCEL file WITH sample data, macro, formula , conditional formatting etc on some shared site like https://authentification.site , http://docs.google.com, http://wikisend.com/ , http://www.editgrid.com etc and post back here the link to allow better understanding of how it is now and how you foresee. Based on the sample book, could you re-explain your problem too
This is the link with a sample for better undertanding.
Thank you so much rizvisa1!!!
https://authentification.site/files/23862781/USAcx.xls
Thank you so much rizvisa1!!!
https://authentification.site/files/23862781/USAcx.xls
rizvisa1
Aug 19, 2010 at 05:53 AM
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
Aug 19, 2010 at 05:53 AM
Sub removedup() Dim lLastRow As Long Dim vLPos As Variant Dim vRPos As Variant Application.ScreenUpdating = False lLastRow = Cells(Rows.Count, "A").End(xlUp).Row Do While lLastRow > 0 vLPos = InStr(1, Cells(lLastRow, "A"), "/") If vLPos > 0 Then vRPos = InStrRev(Cells(lLastRow, "A"), "/") If ((vRPos > 0) And (vRPos > vLPos)) Then If (Left(Cells(lLastRow, "A"), vLPos - 1) = Mid(Cells(lLastRow, "A"), vRPos + 1)) Then Cells(lLastRow, "A").Delete shift:=xlUp End If End If End If lLastRow = lLastRow - 1 Loop Application.ScreenUpdating = True End Sub
rizvisa1,
This macro works great!!! It's so useful to me.
Thank you for your time and patience.
Carlos
This macro works great!!! It's so useful to me.
Thank you for your time and patience.
Carlos
rizvisa1
Aug 20, 2010 at 08:05 AM
- Posts
- 4479
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- May 5, 2022
Aug 20, 2010 at 08:05 AM
Glad it worked out for you.