word count cells code example

Example: excel vba count words

'Fast VBA function to count the words in a string. Words are delimited by
'white space. White space is ASCII 0 thru 32.

Function WordCount&(s$)
    Dim i&, b() As Byte
    If 0 = LenB(s) Then Exit Function
    b = s
    If b(0) > 32 Then WordCount = 1
    For i = 0 To LenB(s) - 4 Step 2
        If b(i) < 33 Then If b(i + 2) > 32 Then WordCount = WordCount + 1
    Next
End Function
        
'-----------------------------------------------------------------------------

MsgBox WordCount("A b cd" & vbcrlf & "eee")		'<--displays:  4