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

275
Clicker

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

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

1
Вырезать и вставить в другую программу? Экспорт в CVS и труба хоть wc? Hennes 6 лет назад 1
Что вы определяете как слово в файле Excel? Просто нормальные слова в ячейках, содержащих текст? Является ли числовое значение словом? Как вы соотносите формулу с количеством слов? Нужно ли считать слова в макросах? Применяете ли вы те же правила минимальной длины символов, что и в тексте? fixer1234 6 лет назад 0

2 ответа на вопрос

2
PeterH

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

Нажмите 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 
1
Shane

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

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

Скриншот

Неплохой результат ... Просто нужен какой-то тест `IF` для пустых ячеек, которые в настоящее время считаются одним словом. BoffinbraiN 6 лет назад 0
Это считает слова в одной ячейке. ОП попросил подсчитать количество слов во всей книге. Bandersnatch 6 лет назад 0
Используйте следующую формулу: `= SUM (IF (LEN (TRIM (A1: B5)) = 0,0, LEN (TRIM (A1: B5)) - LEN (ЗАМЕНА (A1: B5," "," ") ) +1)) `. Затем одновременно нажмите клавиши Shift + Ctrl + Enter, чтобы получить результат Shane 6 лет назад 0

Похожие вопросы