Come rimuovere i caratteri non numerici dalle celle in Excel?
Supponendo di avere un foglio di lavoro con molti di questi dati ABCD4578124YUIOHe vuoi rimuovere solo i caratteri non numerici ABCDUIOH ma mantieni i caratteri numerici nelle celle. Certo, puoi rimuovere quei caratteri uno per uno, ma proprio qui puoi sbarazzarti rapidamente dei caratteri non numerici dalle celle come segue:
Rimuovi i caratteri non numerici con il codice VBA
Uno strumento utile per rimuovere i caratteri non numerici con un clic
Rimuovi i caratteri non numerici con il codice VBA
Per rimuovere caratteri non numerici da un intervallo con codice VBA, eseguire le seguenti operazioni:
1. Clicchi Costruttori > Visual Basic per aprire il Microsoft Visual Basic per le applicazioni finestra. Nel Microsoft Visual Basic per le applicazioni finestra, fare clic inserire > Moduli, quindi copia e incolla i seguenti codici nel modulo:
VBA: rimuovi tutti i caratteri non numerici
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2. Quindi fare clic su pulsante per eseguire il codice, nel pop-up Kutools per Excel finestra di dialogo, selezionare un intervallo con i caratteri non numerici che si desidera rimuovere, quindi fare clic su OK pulsante. Vedi screenshot:
3. Quindi tutti i caratteri non numerici nell'intervallo selezionato vengono rimossi.
Se i numeri con punti decimali, puoi utilizzare il seguente VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Puoi vedere i risultati come mostrato nell'immagine sottostante:
Uno strumento utile per rimuovere i caratteri non numerici con un clic
Per rimuovere caratteri non numerici in un intervallo, Kutools for Excel'S Rimuovi personaggi utility può farlo con un clic.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, si prega di fare come di seguito:
1. Evidenzia l'intervallo in cui desideri rimuovere i caratteri non numerici. Clic Kutools > Testo > Rimuovi personaggi.
2. Nel Rimuovi personaggi finestra di dialogo, selezionare Non numerico opzione nel Rimuovi personaggi sezione, quindi fai clic su OK or APPLICA pulsante. E i caratteri non numerici vengono rimossi immediatamente dalla selezione. Vedi screenshot:
Fai clic per scaricare Kutools per Excel e prova gratuita ora!
Per informazioni più dettagliate su Rimuovi personaggi di Kutools per Excel, visitare Rimuovi la descrizione delle caratteristiche dei personaggi.
Demo: rimuove i caratteri numerici, alfabetici, non stampabili o alfanumerici dalle celle
Articoli correlati:
- Rimuovi i caratteri alfabetici dalle celle
- Rimuovi i caratteri numerici dalle celle
- Rimuovi i caratteri non stampabili dalle celle
- Rimuovi i caratteri non alfabetici dalle celle
- Rimuovi i caratteri non alfanumerici
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!