contar una secuencia de caracteres en un string en el ejemplo de código vba

Te damos la respuesta a este asunto, o por lo menos eso creemos. Si continuas con inquietudes dínoslo, que con gusto te responderemos

Ejemplo: subcadena de recuento de vba de excel en string

'VBA functions to count the occurrnces of a substring in a string.'Choose your function flavor:'Small and Slow:Function InStrCount&(s1$, s2$,Optional Compare As VbCompareMethod = vbBinaryCompare)If Len(s1)ThenIf Len(s2)Then InStrCount = UBound(Split(s1, s2,, Compare))EndFunction'Super Fast (3 times faster than the above function):    Function InStrCount&(s1$, s2$,OptionalByVal Start&=1,Optional Compare As VbCompareMethod = vbBinaryCompare)Dim s2L&If Compare = vbBinaryCompare Then
        s2L = LenB(s2)If s2L Then
            Start = InStrB(Start, s1, s2)DoWhile Start
                InStrCount = InStrCount +1
                Start = InStrB(Start + s2L, s1, s2)LoopEndIfElse
        InStrCount = InStrCount(LCase$(s1), LCase$(s2), Start)EndIfEndFunction'------------------------------------------------------------------------------
    
MsgBox InStrCount("oAooBoCooDo","oo")'<--displays:  2

Si entiendes que te ha sido de utilidad este artículo, sería de mucha ayuda si lo compartieras con más juniors de este modo nos ayudas a difundir nuestra información.

---

---

Utiliza Nuestro Buscador