MyTetra Share
Делитесь знаниями!
подсчет количества вхождений одной строки в другую
06.12.2018
15:26
Текстовые метки: подсчет количества вхождений одной строки в другую
Раздел: VBA - Разобрать

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

'=================================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования