Find the Total of Alphabits in Excel
 

i WANT TO KNOW HOW TO FIND THE TOTAL OF ALPAHBITS IN EXCEL.

Find the Total of Alphabits in Excel
 

Firstly your Caps Lock key is broken. Please get it repaired so that you
can stop SHOUTING.

Secondly, AlphaBits is not part of Excel. It is available as a shareware
download, for example from
http://wareseeker.com/Home-Education...1.1.zip/393130
or from
http://www.brothersoft.com/alphabits-13203.html
--
David Biddulph


"Ramya Jois" <Ramya Jois @discussions.microsoft.com wrote in message
...
i WANT TO KNOW HOW TO FIND THE TOTAL OF ALPAHBITS IN EXCEL.

Find the Total of Alphabits in Excel
 

Sub CountLetters()
''a count of each letter in a range outputted to a new sheet
Dim letCount(1 To 26) As Long
Dim wkSht As Worksheet
Dim ii As Long
Dim Cell As Range
Dim WrkRng As Range
For Each wkSht In Worksheets
With wkSht
If .Name = "ListLetters" Then
Application.DisplayAlerts = False
Sheets("ListLetters").Delete
End If
End With
Next
Application.DisplayAlerts = True
Set WrkRng = ActiveSheet.UsedRange

For Each Cell In WrkRng
For ii = 1 To Len(Cell)
If Mid(UCase(Cell), ii, 1) Like "[A-Z]" Then
letCount(Asc(Mid(UCase(Cell), ii, 1)) - 64) = _
letCount(Asc(Mid(UCase(Cell), ii, 1)) - 64) + 1
End If
Next ii
Next Cell
Set CopytoSheet = Worksheets.Add
CopytoSheet.Name = "ListLetters"
CopytoSheet.Activate
Range("B1").Resize(26, 1).Value = Application.Transpose(letCount)
With Range("A1").Resize(26, 1)
.Formula = "=char(row()+64)"
.Value = .Value
End With

End Sub


Gord Dibben MS Excel MVP

On Tue, 27 Jan 2009 04:38:00 -0800, Ramya Jois <Ramya Jois
@discussions.microsoft.com wrote:

i WANT TO KNOW HOW TO FIND THE TOTAL OF ALPAHBITS IN EXCEL.

Find the Total of Alphabits in Excel
 

Hi,

Not quite sure of the question, but this may help anyway.

If you want to know the total number of characters in a range, say A1:B10, use

=SUM(LEN(A6:B10)) entered with Control-Shift-Enter, as this is an array
formula.

Dave

"Ramya Jois" wrote:

i WANT TO KNOW HOW TO FIND THE TOTAL OF ALPAHBITS IN EXCEL.