Come rimuovere i caratteri non alfanumerici in Excel?

Con il seguente breve codice VBA, puoi anche rimuovere i caratteri non alfanumerici. Puoi farlo così:

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

2. Clicca 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 clicca sul pulsante Esegui per eseguire il codice.

4. Quindi seleziona un intervallo da cui vuoi rimuovere tutti i caratteri non alfanumerici nella finestra di dialogo pop-up e clicca sul OK pulsante.

Ora tutti i caratteri non alfanumerici sono stati eliminati dall'intervallo selezionato. Vedi screenshot:

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

Di solito mettiamo il cursore in una cella e poi rimuoviamo manualmente i caratteri non alfanumerici uno per uno. Se sei familiare con VBA o le Funzioni Definite dall'Utente, puoi programmarlo e rimuovere tutti i caratteri non alfanumerici in blocco. Ma qui, ti consiglierò uno strumento fantastico, la funzione Rimuovi Caratteri di Kutools per Excel, che può rimuovere tutti i tipi di caratteri con soli 2 clic!

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

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

2. Clicca su Inserisci > Modulo, quindi incolla il seguente codice 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. Ora torna al foglio di lavoro, seleziona una cella vuota, e inserisci la formula =DeleteNonAlphaNumeric(B3), e poi trascina l'handle di AutoCompletamento verso il basso per applicare questa formula ad altre celle.

Con i due metodi precedenti, devi conoscere i codici, ma come principianti di Excel, molti di noi non possono usare il codice, quindi qui ti darò un modo facile per farlo.

Kutools per Excel- Include più di 300 strumenti utili per Excel. Prova gratuita completa 30-giorni, nessuna carta di credito richiesta! Ottienilo Ora

Se hai installato Kutools per Excel, procedi come segue:

1. Seleziona l'intervallo da cui devi rimuovere i caratteri non alfanumerici e clicca su Kutools > Testo > Rimuovi Caratteri.

2. Apparirà una Elimina Caratteri finestra di dialogo, spunta solo l'opzione Non alfanumerici e clicca sul pulsante Ok pulsante.

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