Wie zählt man die Anzahl der Wörter in einer Microsoft Excel-Datei?

Question

Ich muss die Gesamtzahl der Wörter in einemMS ExcelDatei. Normalerweise wird es in MS Word oder PowerPoint entweder in der Statusleiste oder im Eigenschaftenfenster angezeigt. In Excel wird es jedoch nirgends angezeigt.

Gibt es eine Lösung?

Answer 1

Sie können hierfür ein Makro erstellen:

Drücken Sie ALT + F11 und geben Sie den folgenden Code ein.

Wählen Sie dann das gesamte Blatt aus und führen Sie das Makro zur Wortzählung aus. Sie können auch nur einen Abschnitt auswählen und nur diesen Abschnitt zählen.

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

Versuchen Sie es mit einer Formel wie dieser:

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