qa.ru
Как подсчитать количество конкретных символов в ячейке с помощью Excel VBA
'=================================================================================
'// подсчет количества вхождений одной строки в другую
Function COUNTTEXT(strCheck As String, strVal As String) As Long
'strCheck - строка в которой проверяем
'strVal - строка корую ищем
Dim i As Integer, count As Integer
Dim intLen_strVal As Integer
If Len(strVal) > 0 Then
intLen_strVal = Len(strVal)
Else
COUNTTEXT = 0: Exit Function
End If
count = 0
'If Len(ref_string) <> 1 Then COUNTTEXT = CVErr(xlErrValue): Exit Function
For i = 1 To Len(strCheck)
ff = Mid(strCheck, i, intLen_strVal)
If Mid(strCheck, i, intLen_strVal) = strVal Then count = count + 1
Next
COUNTTEXT = count
End Function
'=================================================================================
