Con il seguente codice VBA breve, puoi rimuovere anche i caratteri non alfanumerici. Puoi farlo in questo modo:

1. Stampa altro + F11 chiavi insieme per aprire il Microsoft Visual Basic per le applicazioni finestra.

2. Clic inserire > Moduli, quindi incolla sotto il 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. stampa F5 o fare clic su Correre pulsante per eseguire il codice.

4. Quindi seleziona un intervallo in cui desideri rimuovere tutti i caratteri non alfanumerici nella finestra di dialogo a comparsa e fai clic su 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 straordinario

Di solito inseriamo il cursore in una cella e quindi rimuoviamo manualmente i caratteri non alfanumerici uno per uno. Se hai familiarità con VBA o con le funzioni definite dall'utente, puoi codificarlo e rimuovere in blocco tutti i caratteri non alfanumerici. Ma qui consiglierò uno strumento straordinario, la funzione Rimuovi caratteri di Kutools per Excel, che può rimuovere tutti i tipi di caratteri con solo 2 clic!

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

1. stampa altro + F11 chiavi insieme per aprire il Microsoft Visual Basic per le applicazioni finestra.

2. Clic inserire > Moduli, quindi incolla il codice sottostante nel modulo:

Funzione definita dall'utente: rimuove 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), quindi trascina il download della maniglia di Compilazione automatica per applicare questa formula ad altre celle.

Con i due metodi precedenti, devi conoscere i codici, ma come principianti di Excel, la maggior parte di noi non può utilizzare il codice, quindi qui ti darò un modo semplice per farlo.

Kutools for Excel- Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna carta di credito richiesta! Get It Now

Se hai installato Kutools per Excel, procedi come segue:

1. Seleziona l'intervallo da cui rimuovere i caratteri non alfanumerici e fai clic su Kutools > Testo > Rimuovi personaggi.

2. Poi un Elimina caratteri apparirà la finestra di dialogo, spunta solo Non alfanumerico opzione e fare clic su Ok pulsante.

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