pitcher_ respondió:
Agrega este código en un modulo de la planilla : Function Consonantes(Text As String) As String Text = UCase(Text) For X = 1 To Len(Text) If Mid(Text, X, 1) <> "A" And Mid(Text, X, 1) <> "E" And Mid(Text, X, 1) <> "I" And Mid(Text, X, 1) <> "O" And...
Extraer las consonantes de palabras