HEELPBOOK - How to count unique items in a column (VBA) #######################

Function CountUnique(ByVal Rng As Range) As Long
Dim St As String
Set Rng = Intersect(Rng, Rng.Parent.UsedRange)
St = "'" & Rng.Parent.Name & "'!" & Rng.Address(False, False)
CountUnique = Evaluate("SUM(IF(LEN(" & St & "),1/COUNTIF(" & St & "," & St & ")))")
End Function


You could use it like:


MsgBox CountUnique(Sheets("Sheet1").Range("A:A"))



############ ARTICLE INFO #############

Article Month: November
Article Date: 12/11/2012
Permalink: http://heelpbook.altervista.org/2012/how-to-count-unique-items-in-a-column-vba/
Source: http://www.mrexcel.com/forum/excel-questions/48385-need-count-unique-items-column-visual-basic-applications.html
Language: English

View more articles on: http://www.heelpbook.net/
Follow us on Facebook: http://it-it.facebook.com/pages/HeelpBook/100790870008832
Follow us on Twitter: https://twitter.com/#!/HeelpBook
Follow us on RSS Feed: http://feeds.feedburner.com/Heelpbook
Follow us on Delicious: http://delicious.com/heelpbook
Linkedin: http://it.linkedin.com/pub/stefano-maggi/27/73a/b20
Google+ : https://plus.google.com/116990277568167008289/posts