Identify and counting unique alpha numeric entries in a column

[xerxers]

I did a search and think that most of the answers were a tad complex for what I am trying to achieve.

I have a number of columns but in one there is an alpha numeric entry.

I would like to identify each unique entry and also count how many times each entry appeared and present that in a format of each unique entry and how many times it occurred.

The column is F8..F624.
The entries are : A108, A234 X250 W218 type entries to name a few.

Thank you in advance for your assistance.

Xerxers

 

[JLGWhiz]

This is not too complex. Just install it in your code module1 of the workbook with the activesheet and run it.

Sub t()
Dim sh As Worksheet, c As Range, rng As Range
Set sh = ActiveSheet
    With sh
        .Range("F7", .Cells(Rows.Count, 6).End(xlUp)).AdvancedFilter xlFilterCopy, , .Cells(Rows.Count, 1).End(xlUp)(3), True
        Set rng = .Cells(Rows.Count, 1).End(xlUp).CurrentRegion
        For Each c In rng.Offset(1)
            If c <> "" Then
                c.Offset(, 1) = Application.CountIf(.Range("F8", .Cells(Rows.Count, 6).End(xlUp)), c.Value)
            End If
        Next
    End With
End Sub

It will list the unique values of column F at the bottom of column A and their count will appear in column B beside the applicable value.