Для подсчета количества знаков препинания в ячейке в Microsoft Excel вы можете использовать функцию LEN, которая возвращает длину строки, и функцию SUBSTITUTE, которая заменяет указанные символы в строке. Следующий макрос будет считать количество знаков препинания в ячейке A1:

```vbnet 
Function CountPunctuation(cell As Range) As Integer
    Dim PunctuationMarks As String
    PunctuationMarks = ",.;:?!-"

    CountPunctuation = Len(cell) - Len(WorksheetFunction.Substitute(cell, PunctuationMarks, ""))
End Function```
Вы можете вызвать эту функцию из любой ячейки электронной таблицы, используя формулу: =CountPunctuation(A1). Если вы хотите вызвать эту функцию для другой ячейки, измените аргумент `cell` в функции `CountPunctuation` на нужный адрес ячейки.

Помогло ли вам моё решение?
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence