Sub num_de_palabras()
'
' num_de_palabras Macro
' Crea una columna con el numero de palabras de la columna keywords
'
' Acceso directo: Ctrl+Mayús+N
'
    Range("G1").Value = "N de palabras"
    Range("G2").FormulaR1C1 = "=SUM(IF(LEN(TRIM(RC[-6]))=0,0,LEN(TRIM(RC[-6]))-LEN(SUBSTITUTE(RC[-6],"" "",""""))+1))"
    Range("G2").AutoFill Destination:=Range("G2:G" & Range("F1").End(xlDown).Row)
End Sub