Как посчитать количество слов в файле Microsoft Excel?

Question

Мне нужно подсчитать общее количество слов в файле MS Excel . Обычно в MS Word или PowerPoint он отображается либо в строке состояния, либо в окне свойств. Но в Excel это нигде не дается.

Есть ли решение?

Answer 1

Вы можете создать макрос для этого:

Нажмите ALT + F11 и введите приведенный ниже код.

Затем выберите весь лист, запустите макрос для подсчета слов. Вы также не можете просто выбрать раздел и Word Count Только этот раздел.

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

Попробуйте следующую формулу:

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