Код на VBA
Function СЧЁТСИМВЛ(ТЕКСТ As String, СИМВОЛ As String) As Long Dim i As Long Dim S As Long S = 0 For i = 1 To Len(ТЕКСТ) If СИМВОЛ = Mid(ТЕКСТ, i, 1) Then S = S + 1 Next СЧЁТСИМВЛ = S End Function |