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

Question

Preciso contar o número total de palavras em umExcelarquivo. Normalmente, no MS Word ou PowerPoint, é mostrado na barra de status ou na janela de propriedades. Mas no Excel, isso não é fornecido em lugar nenhum.

Há 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 planilha inteira e execute a macro para uma contagem de palavras. Você também pode simplesmente selecionar uma seção e contar palavras apenas nessa 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

Experimente uma fórmula como esta:

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