vba: get unique values from array

by

This post contains 2 examples. I like the 2nd one:

Sub unique() 
  Dim arr As New Collection, a 
  Dim aFirstArray() As Variant 
  Dim i As Long 
 
  aFirstArray() = Array("Banana", "Apple", "Orange", "Tomato", "Apple", _ 
  "Lemon", "Lime", "Lime", "Apple") 
 
  On Error Resume Next 
  For Each a In aFirstArray 
     arr.Add a, a 
  Next
  On Error Goto 0 ' added to original example by PEH
 
  For i = 1 To arr.Count 
     Cells(i, 1) = arr(i) 
  Next 
 
End Sub

More Related Contents:

  1. delete Autofilter Field resullt using the header Name
  2. Somehow it’s not copying [closed]
  3. Refer to sheet using codename
  4. VBA Macro On Timer style to run code every set number of seconds, i.e. 120 seconds
  5. Assign code to a button created dynamically
  6. Last not empty cell (column) in the given row; Excel VBA
  7. HTML Text with tags to formatted text in an Excel cell
  8. Split comma separated entries to new rows [closed]
  9. Get list of Excel files in a folder using VBA [duplicate]
  10. Select first empty cell in column F starting from row 1. (without using offset )
  11. How to “flatten” or “collapse” a 2D Excel table into 1D?
  12. Excel VBA – QueryTable AfterRefresh function not being called after Refresh completes
  13. Excel VBA: AutoFill Multiple Cells with Formulas
  14. VBA.Find and adding a value
  15. excel vba- extract text between 2 characters
  16. Round function in Excel, worksheet function vs VBA
  17. How to continue the code on the next line in VBA
  18. Excel VBA Userform – Execute Sub when something changes
  19. Count the number of rows in another sheet [duplicate]
  20. Getting Excel to refresh data on sheet from within VBA
  21. How can I generate GUIDs in Excel?
  22. VBA Password Input with Cancel Function
  23. Finding first blank row, then writing to it
  24. How can an Excel Add-In respond to events in any worksheet?
  25. Meaning of .Cells(.Rows.Count,”A”).End(xlUp).row
  26. How do I loop an excel 2010 table by using his name & column reference?
  27. How do I get a list of unique values from a range in Excel VBA?
  28. How to get selected value in multicolumn listbox
  29. Query my excel worksheet with VBA
  30. How to copy only a single worksheet to another workbook using vba

Leave a Comment