Подсчет количества слов на листе

[bukarenko]

Доброго времени суток.
Возникла следующая задача: необходимо подсчитать количество пробелов на листе Excel. Проблема в том, что использовать свойство ячейки Characters и перебирать все символы в ячейке в поисках пробела невозможно, т.к. это будет занимать непозволительно много времени.
Буду очень благодарен, если кто-то подскажет более быстрый способ.

[Dophin]

=СЧЁТЕСЛИ(A1:A2;"*"&" "&"*") - подсчитать количество ячеек содержащих пробелы.

Количество всех пробелов - хз) надо подумать.

Чем перебор то не устраивает? попьете чай минут 10)

[doober]

Я думаю это самый шустрый способ

Sub Chet()
Dim n, m, k As Long
Dim Txt As String
On Error Resume Next
 Kill ("C:\Test.txt")
    ActiveSheet.SaveAs Filename:= _
        "C:\Test.txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
        
      Set oFSO = CreateObject("Scripting.FileSystemObject")
       Txt = oFSO.OpenTextFile("C:\Test.txt", 1, False).readall
        n = Len(Txt)
         Txt = Replace(Txt, " ", "")
         m = Len(Txt)
         k = n - m
        MsgBox "Всего пробелов - " & k
        Set oFSO = Nothing
       
        
End Sub

[EducatedFool]

Можно попробовать и без создания текстового файла.
копируем данные в буфер обмена: ActiveSheet.usedrange.copy
считываем из буфера в текстовую переменную
считаем пробелы методом Txt = Replace(Txt, " ", "")

[SAS888]

Подсчет количества слов на листе

необходимо подсчитать количество пробелов на листе Excel

Вообще-то, это разные задачи. Если ячейки Excel содержат по несколько пробелов, идущих подряд, то можно воспользоваться функцией

Txt = Application.Trim(Txt)

Но!!! Если ячейки Excel содержат пробелы слева (справа), то при формировании текстовой строки появятся "лишние" пробелы, которые невозможно будет удалить вышеупомянутой функцией. Т.е. в этом случае, для подсчета слов на листе Excel такой метод будет возвращать ошибочный результат.