Question

Дана строка. Определить сколько раз в неё входит подстрока abc. Написать на vba

Answer 1

Sub abc()

   s = InputBox("Введите строку")

   k = Len(s) - Len(Replace(s, "abc", ""))

   MsgBox k / 3

End Sub

Все очень просто. Из длины исходной строки вычитаем длину строки, полученную исключением всех вхождений строки abc и делим разность на 3, - длину подстроки.

Answer 2

Вот пример кода VBA, который позволяет определить, сколько раз подстрока "abc" входит в заданную строку:

vbaCopy code
Function CountSubstring(str As String, substr As String) As Integer
    Dim count As Integer
    Dim pos As Integer
    Dim length As Integer
    
    count = 0
    length = Len(substr)
    pos = InStr(str, substr)
    
    Do While pos > 0
        count = count + 1
        pos = InStr(pos + length, str, substr)
    Loop
    
    CountSubstring = count
End Function

Вы можете вызвать эту функцию, передав в нее исходную строку и подстроку "abc", например:

vbaCopy code
Sub TestCountSubstring()
    Dim inputString As String
    Dim substring As String
    Dim count As Integer
    
    inputString = "abcxyzabcabc"
    substring = "abc"
    
    count = CountSubstring(inputString, substring)
    
    MsgBox "Количество вхождений: " & count
End Sub

В данном примере результат будет равен 3, так как подстрока "abc" входит в исходную строку три раза.