Change Macro to Output to Sheet

[joand]

Hi guys, how do I change this macro so that it outputs to an excel sheet (column A and column B).

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

 

[Yongle]

Try this after amending sheet name

Sub GetUniqueAndCount()
    Dim d As Object, c As Range, k, tmp As String, r As Long

    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
        r = r + 1
        Sheets("[COLOR=#ff0000]SheetName[/COLOR]").Cells(r, 1).Resize(, 2) = Array(k, d(k))
    Next k
End Sub

 

[joand]

Great! thanks a lot

 

[Yongle]

thanks for feedback