Is there a word-count macro in excel?

[Jack Crane]

Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel document.

Thanks,

Jack Crane

 

[Dave Peterson]

Nope.

Word has a built-in word-count macro. Does excel?

A friend needs to find the total of all the words in an excel document.

Thanks,

Jack Crane

 

[David McRitchie]

Hi Jack,
See Chip's macro for one worksheet, it is looking at text, which
is what you see not formulas and not values.
.. http://www.cpearson.com/excel/WordCount.htm

 

[Jim May]

FWIW:
Found this in Google:
Paste into Standard Module

Sub AAA()
Dim WordCount As Long
Dim cell As Range
Dim S As String
Dim N As Long
For Each cell In ActiveSheet.UsedRange.Cells
S = cell.Text
N = 0
If S <> "" Then
N = 1
End If
WordCount = WordCount + N
Next cell
MsgBox WordCount
End Sub

Hope this helps;

 

[David McRitchie]

Hi Jim,
Looks like an adaptation of Chip's macro attempting to count the number
of cells that are not empty.

 

[Chip Pearson]

That will count only the number of cells which contain text. It
doesn't take into account that a cell may contain more than one
word. For a real word counter, see
http://www.cpearson.com/excel/wordcount.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Jim May]

Yeah you're right guys,
I got in a hurry, particularly after I tried Chip's original
code and with six words spread over only 4 cells,
the count came back 14; ???

My attempt to help went "down-hill" from there.
Sorry OP..
Tks,