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

Question

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

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

Answer 1

Для этого можно создать макрос:

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

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

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