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

327
Clicker

Ich muss die Gesamtzahl der Wörter in einer MS Excel- Datei zählen. In MS Word oder PowerPoint wird dies normalerweise in der Statusleiste oder im Eigenschaftenfenster angezeigt. Aber in Excel ist es nirgends gegeben.

Gibt es eine Lösung?

1
Ausschneiden und Einfügen in ein anderes Programm? Export nach CVS und Pipe obwohl WC? Hennes vor 6 Jahren 1
Was definieren Sie als Wort in einer Excel-Datei? Nur normale Wörter in Zellen, die Text enthalten? Ist ein Zahlenwert ein Wort? Wie setzt man eine Formel einer Wortzählung gleich? Müssen Sie Wörter in Makros zählen? Wenden Sie dieselben Regeln für die Mindestlänge von Zeichen an wie im Text? fixer1234 vor 6 Jahren 0

2 Antworten auf die Frage

2
PeterH

Sie können dafü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 für eine Wortzählung aus. Sie können auch einfach einen Abschnitt auswählen und Word 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
1
Shane

Versuchen Sie eine Formel wie diese:

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

Screenshot

Kein schlechtes Ergebnis ... Benötigt nur eine Art IF-Test für leere Zellen, die derzeit als ein Wort zählen. BoffinbraiN vor 6 Jahren 0
Dies zählt die Wörter in einer einzelnen Zelle. OP bat um die Anzahl der Wörter in der gesamten Arbeitsmappe. Bandersnatch vor 6 Jahren 0
Verwenden Sie eine Formel wie folgt: `= SUMME (WENN (LEN (TRIM (A1: B5)) = 0,0, LEN (TRIM (A1: B5)) - LEN (ERSATZ (A1: B5," "," ")) ) +1)) “. Drücken Sie dann gleichzeitig die Tasten Umschalt + Strg + Enter, um das Ergebnis zu erhalten Shane vor 6 Jahren 0

Verwandte Probleme