[Excel 2003] Eliminare vocali o consonanti da testo

[nicola75ss]

Salva questa funzione

Function rimuovi_vocali(str As String)
str = Replace(str, "a", "", , , vbTextCompare)
str = Replace(str, "e", "", , , vbTextCompare)
str = Replace(str, "i", "", , , vbTextCompare)
str = Replace(str, "o", "", , , vbTextCompare)
str = Replace(str, "u", "", , , vbTextCompare)
rimuovi_vocali = str
End Function

e a questo punto la richiami come una normale funzione nativa di excel.



edit. Per applicarla solo ad alcune celle registri la seguente sub

Sub rimuovi()
For Each cella In Selection.Cells
cella.Value = rimuovi_vocali(cella.Value)
Next
End Sub

selezioni le celle che ti interessano e la richiami.