≥chすると、ƒакрос、□¯зVBA（アプリケーション用の視覚的基本）¿excel。Вотпримеркода、賛美

整数としての関数countpunctuation（範囲としてのセル）
    整数として薄暗い
    文字列としてのDIM句読点
    文字列としてのDIMチャー
    punctuationmarks = "。、;：！？"
    CountPunctuation = 0
    i = 1の場合（cell.value）
        char = mid（cell.value、i、1）
        If struming（punctuationMarks、char）> 0
            CountPunctuation = countPunctuation + 1
        ifを終了します
    次の私
エンド関数

чтобーター□атоототоびするまされたアプリケーションのMicrosoft Visual Basic "×¬откоткодвか入。затемвーターするまするげするげ好っている。

например、Éetqu®··e言うρтекствв防っとa1、Выыможетететеここжпcполо−→countpunctuation（a1）、 пинаниここ。
Вы можете создать макрос, используя VBA (Visual Basic for Applications) в Excel. Вот пример кода, который может помочь вам с этим:

Function CountPunctuation(cell As Range) As Integer
    Dim i As Integer
    Dim punctuationMarks As String
    Dim char As String
    punctuationMarks = ".,;:!?"
    CountPunctuation = 0
    For i = 1 To Len(cell.Value)
        char = Mid(cell.Value, i, 1)
        If InStr(punctuationMarks, char) > 0 Then
            CountPunctuation = CountPunctuation + 1
        End If
    Next i
End Function

Чтобы использовать этот макрос, вам нужно открыть "Microsoft Visual Basic for Applications" и вставить этот код в модуль. Затем вы можете использовать эту функцию в ячейке, указав её имя (CountPunctuation) и передавая ячейку, которую вы хотите проверить, в качестве аргумента.

Например, если у вас есть текст в ячейке A1, вы можете использовать формулу =CountPunctuation(A1), чтобы получить количество знаков препинания в этой ячейке.