¿Cómo contar la cantidad de palabras en un archivo de Microsoft Excel?

Question

Necesito contar el número total de palabras en unExcelarchivo. Por lo general, en MS Word o PowerPoint, se muestra en la barra de estado o en la ventana de propiedades. Pero en Excel, no aparece en ninguna parte.

¿Hay alguna solución?

Answer 1

Puedes crear una macro para esto:

Presione ALT + F11 e ingrese el siguiente código.

Luego seleccione toda la hoja y ejecute la macro para contar las palabras. También puedes seleccionar una sección y contar palabras solo en esa sección.

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

Pruebe una fórmula como esta:

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