=--ЕОШ(НАЙТИ("аккумулятор";F3))*ФОРМУЛА

=--ЕОШ(НАЙТИ("аккумулятор";A1))*СЖПРОБЕЛЫ(Substring(A1;"Аккумулятор";2))

=ЕСЛИ(ЕЧИСЛО(ПОИСК("Аккумулятор";A1));СЖПРОБЕЛЫ(Substring(A1;"Аккумулятор";2)); "Неверно")

=--ЕОШ(НАЙТИ("Аккумулятор";A1))*СЖПРОБЕЛЫ(Substring(A1;"Аккумулятор";2))

Function Substring(txt, Delimiter, n) As String
     Dim X As Variant
        X = Split(txt, Delimiter)
        If n > 0 And n - 1 <= UBound(X) Then
          Substring = X(n - 1)
        Else
          Substring = ""
        End If
End Function

Function ENGLISH(cell As Range) As String
        
      Dim lCount As Long, i As Long
      Dim s As String, prefix As String
      Dim re As Object, mc As Object
        
      Set re = CreateObject("VBScript.RegExp")
        
      With re
          .Pattern = "[a-z\d]+"
          .Global = True
          .IgnoreCase = True
      End With
        
      Set mc = re.Execute(cell)
        
      prefix = " "
      lCount = mc.Count
        
      If lCount > 0 Then
          For i = 0 To lCount - 1
              If i = lCount - 1 Then prefix = ""
              s = s & mc(i) & prefix
          Next
      End If
        
      ENGLISH = s
        
      Set re = Nothing
      Set mc = Nothing

End Function