• 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.

Unique values from range UDF

Hi Vasim

I had a look at Narayan suggestion on Ozgrid. I think I can suggest an alternative.

I will attach a workbook shortly, based on your jpeg file this should get you going.

Code:
Option Explicit

Sub RemDups()
    Dim rng As Range
    For Each rng In Rows(2).SpecialCells(2).Areas
        Range("I" & Rows.Count).End(xlUp)(2).Resize(rng.CurrentRegion.Offset(1).Rows.Count, _
        rng.CurrentRegion.Offset(1).Columns.Count) = rng.CurrentRegion.Offset(1).Value
    Next
    Columns("I:I").RemoveDuplicates 1
End Sub

Take care

Smallman
 

Attachments

  • 1RemDups.xlsm
    15 KB · Views: 5
Back
Top