これは、セル内の句読点の数を計算する単純なマクロの例です。

sub countPunction（）
    '変数を宣言します
    文字列としてのdim strtext
    整数としてのdim intcount

    '選択したセルからテキストを取得します
    strtext = selection.value

    'テキスト内の各文字を調べてください
    i = 1 to len（strtext）
        'キャラクターが阻止マークであるかどうかを確認してください
        if strust（ "。、;：！？"、mid（strtext、i、1））> 0 then
            'もしそうなら、カウントを増やします
            intcount = intcount + 1
        ifを終了します
    次の私

    'メッセージボックスにカウントを表示します
    msgbox "選択したセルの阻止マークの数は次のとおりです。＆intcount
End Sub
Вот пример простого макроса, который подсчитывает количество знаков препинания в ячейке:

Sub CountPunctuation()
    'Declare variables
    Dim strText As String
    Dim intCount As Integer

    'Get the text from the selected cell
    strText = Selection.Value

    'Loop through each character in the text
    For i = 1 To Len(strText)
        'Check if the character is a punctuation mark
        If InStr(".,;:!?", Mid(strText, i, 1)) > 0 Then
            'If it is, increment the count
            intCount = intCount + 1
        End If
    Next i

    'Display the count in a message box
    MsgBox "The number of punctuation marks in the selected cell is: " & intCount
End Sub