Ver originales (Francés)

VBA CONTAR EL NÚMERO DE OCURRENCIAS

noobduvb -  
 NikoBübü -
¡Hola a todos!!!

Aquí vengo a ustedes porque no consigo hacer una función correcta y rápida para encontrar el número de ocurrencias en mi hoja de Excel !

Al tantear un poco, encontré esta función muy astuta
que consiste en contar el número de remplazos que se hacen! 
 Function NbOc(Chaine As String, Ch As String) As Long NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, """"))) / Len(Ch) End Function


pero desafortunadamente esta función no funciona conmigo :(
si alguien pudiera ayudarme! xD

bye bye

6 respuestas

  1. NikoBübü
     
    creo que prefieres hacer: 1) contar el número de caracteres en la cadena original 2) reemplazar tus "1" por "" con la función Replace() 3) volver a contar el número de caracteres 4) comparar el primer y el segundo conteo así obtendrás la cantidad de "1" en tu cadena

    da:

    Sub test()
    Dim str As String
    Dim num, num2 As Integer

    str = "abc1def1ghi1jkl113265481"
    num1 = Len(str)
    str = Replace(str, "1", "")
    num2 = Len(str)

    num1 = num1 - num2
    MsgBox ("il y a " & num1 & " fois le chiffre 1 dans la chaine")

    End Sub
    1