}
Home » Blog » Support's blog

double elimination excel

Need Quick Excel Help? Have a question that needs to be answered? Looking for a quick VBA code/book/  add in/or template?

Send us the quick text and we can help

Submitted by Support on Tue, 10/14/2008 - 19:18.

 

Ok, Here is the code which will have you in double elimination in excel.

So, if you have duplilcates in your list, open the VBA window and add the macro below to eliminate doubles.

Option Explicit
Sub RmDups()
    Dim rng As Range

    Application.ScreenUpdating = False
    Set rng = Sheets("First").Range("A1").CurrentRegion
    Sheets("Final").Select
    rng.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:="", CopyToRange:=Range("A1"), _
        Unique:=True
End Sub

I hope this helps.

 

Bookmark/Search this post with:

eXTReMe Tracker