Populate unique values into a VBA array from Excel

by 
Sub GetUniqueAndCount()

    Dim d As Object, c As Range, k, tmp As String

    Set d = CreateObject("scripting.dictionary")
    For Each c In Selection
        tmp = Trim(c.Value)
        If Len(tmp) > 0 Then d(tmp) = d(tmp) + 1
    Next c

    For Each k In d.keys
        Debug.Print k, d(k)
    Next k

End Sub

More Related Contents:

  1. SumIf using Excel VBA
  2. Test or check if sheet exists
  3. Copy from one workbook and paste into another
  4. How to copy Outlook mail message into excel using VBA or Macros
  5. For Loop not fully cycling in excel VBA [duplicate]
  6. Unique Random Numbers using VBA
  7. Split cell values into multiple rows and keep other data
  8. Save each sheet in a workbook to separate CSV files
  9. Is VBA an OOP language, and does it support polymorphism?
  10. Export each sheet to a separate csv file
  11. Detect if range is empty
  12. Checking if a worksheet-based checkbox is checked
  13. Assign keyboard shortcut to run procedure
  14. Faster way to remove ‘extra’ spaces (more than 1) from a large range of cells using VBA for Excel
  15. Uncheck all checkboxes across entire workbook via CommandButton
  16. return csv file as recordset
  17. VBA workbooks.Close without being prompted to if the user wants to save?
  18. Extract Data from Word Document to an Excel SpreadSheet
  19. VBA equivalent to Excel’s mod function
  20. Copy a selected range to another worksheet
  21. Excel macro – paste only non empty cells from one sheet to another
  22. The MacScript function is not working well in Office for Mac 2016! Any ideas?
  23. Pointers needed for speeding up nested loop macro in VBA
  24. ‘1004’: “The sort reference is not valid.”
  25. Select entire column in table using Excel VBA
  26. Create hyperlink to another sheet
  27. Reducing WithEvent declarations and subs with VBA and ActiveX
  28. Convert Early Binding VBA to Late Binding VBA : Excel to Outlook Contacts
  29. Function Overloading and UDF in Excel VBA
  30. VBA: Modify chart data range

Leave a Comment