Hay veces en que necesitamos contar las palabras que contiene un texto. Esto por ejemplo en Word es muy simple pues la función viene incluida en el software. Pero en Excel esta función de contar palabras no existe.  La macro a continuación permite contar el número de palabras en una determinada hoja de Excel. Espero les sirva:

******************************************************************** 

Sub CountarPalabras()
    Dim Cuenta As Long
    Dim Rng As Range
    Dim S As String
    Dim N As Long
    For Each Rng In ActiveSheet.UsedRange.Cells
        S = Application.WorksheetFunction.Trim(Rng.Text)
        N = 0
        If S <> vbNullString Then
            N = Len(S) - Len(Replace(S, " ", "")) + 1
        End If
        Cuenta = Cuenta + N
    Next Rng
    MsgBox "Número de Palabras: " & Format(Cuenta, "#,##0")
End Sub 

******************************************************************** 

Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos