caranbis respondió:
'Tiene que hacerse con una función personalizada, 'Es la siguiente: Public Function Contar_Palabra(Celda As Range, Palabra As String) As Integer Dim Cont As Integer Dim Encontrado As Integer Encontrado = InStr(1, Celda.Value, Palabra) While...