Come rimuovere i caratteri non alfanumerici in Excel?

Con questo breve codice VBA puoi rimuovere anche i caratteri non alfanumerici. Ecco come procedere:

1. Premi contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic per Applications.

2. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice VBA nel modulo:

VBA: Rimuovi tutti i caratteri non alfanumerici

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Premi il tasto F5 o fai clic sul pulsante Esegui per eseguire il codice.

4. Nella finestra di dialogo visualizzata, seleziona un intervallo da cui desideri rimuovere tutti i caratteri non alfanumerici e fai clic sul pulsante OK.

Ora tutti i caratteri non alfanumerici sono stati rimossi da Seleziona intervallo. Vedi screenshot:

2 clic per rimuovere tutti i caratteri non alfanumerici con uno strumento eccezionale

Di solito, si posiziona il cursore in una cella e si rimuovono manualmente i caratteri non alfanumerici uno per uno. Se conosci VBA o le funzioni definite dall’utente, puoi scrivere del codice per eliminarli tutti in blocco. Tuttavia, ti consiglio uno strumento eccezionale: la funzionalità Elimina Caratteri Specifici di Kutools per Excel, che ti permette di rimuovere qualsiasi tipo di carattere con soli 2 clic!

Puoi anche creare una funzione personalizzata per eliminare tutti i caratteri non alfanumerici dalle celle in Excel.

1. Premi contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic per Applications.

2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nel modulo:

Funzione definita dall'utente: Rimuovi tutti i caratteri non alfanumerici

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Torna ora al foglio di lavoro, seleziona una cella vuota e inserisci la formula =DeleteNonAlphaNumeric(B3), quindi trascina la maniglia di riempimento automatico verso il basso per applicare la formula alle altre celle.

Con i due metodi precedenti è necessario conoscere i codici, ma la maggior parte di noi, essendo alle prime armi con Excel, non riesce a utilizzarli. Ecco perché ti propongo un metodo semplice per farlo.

Kutools per Excel – Include oltre 300 strumenti utili per Excel. Prova gratuita completa per 30 giorni, senza bisogno di carta di credito!Scaricalo ora

Se hai installato Kutools per Excel, procedi come segue:

1. Seleziona l'intervallo da cui devi rimuovere i caratteri non alfanumerici, quindi fai clic su Kutools > Testo > Elimina Caratteri Specifici.

2. Si aprirà quindi la finestra di dialogo Elimina caratteri, in cui ti basterà selezionare l'opzione Non alfanumerico e fare clic sul pulsante OK.

Ora tutti i caratteri non alfanumerici sono stati rimossi dalle stringhe di testo.