Como contar o número de palavras em um arquivo do Microsoft Excel?

Question

Eu preciso contar o número total de palavras em um arquivo MS Excel . Normalmente, no MS Word ou PowerPoint, é mostrado na barra de status ou na janela de propriedades. Mas no Excel, não é dado em qualquer lugar.

Existe uma solução?

    

Answer 1

Você pode criar uma macro para isso:

Pressione ALT + F11 e digite o código abaixo.

Em seguida, selecione a folha inteira e execute a macro para obter uma contagem de palavras. Você também pode apenas selecionar uma seção e contar apenas essa seção.

Sub CountWords()
Dim MyRange As Range
Dim CellCount As Long
Dim TotalWords As Long
Dim NumWords As Integer
Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)
TotalWords = 0
For CellCount = 1 To MyRange.Cells.Count
If Not MyRange.Cells(CellCount).HasFormula Then
Raw = MyRange.Cells(CellCount).Value
Raw = Trim(Raw)
If Len(Raw) > 0 Then
NumWords = 1
Else
NumWords = 0
End If
While InStr(Raw, " ") > 0
Raw = Mid(Raw, InStr(Raw, " "))
Raw = Trim(Raw)
NumWords = NumWords + 1
Wend
TotalWords = TotalWords + NumWords
End If
Next CellCount
MsgBox "There are " & TotalWords & " words in the selection."
End Sub

    

Answer 2

Tente uma fórmula como esta:

=LEN(A3)-LEN(SUBSTITUTE(A3," ",""))+1