Have an alphbetical list need to count how many names start with A, B, C etc.

jolivanes · #10 09-02-2014, 02:06 PM

Here is another possibility without the need for a Help Column.
In this code it assumes that Column C (3) is free. Change as required.

Code:

Sub One_More_Way()
    Dim j As Long, lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row    '<---- Column A (1) is being checked. Change as required
    For j = 1 To 26
        'The number 3 in Cells(j, 3) in the next line is Column C (3rd Column).Change as required.
        Cells(j, 3).Value = Application.WorksheetFunction.CountIf(Range("B1:B" & lr), _
        Chr(64 + j) & "*") & " x " & Chr(64 + j) & "'s"
    Next j
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Right Click menu list names	jimbassett	Word	0	02-25-2013 02:39 PM
How to import a list of names into PowerPoint from Excel?	CarpetRemnant	PowerPoint	4	12-07-2012 11:08 AM
auto insert names from list for printing	andreipopa2k	Word	1	12-09-2011 01:51 PM
Using a list of names in credits effect	Pemberton	PowerPoint	4	08-17-2010 02:10 AM
Random names from a given list	professor snape	Excel	1	06-06-2009 09:39 AM