Come estrarre i numeri da stringhe alfanumeriche miste in Excel?
Questa guida presenta tre metodi efficaci per estrarre numeri da stringhe alfanumeriche miste in Excel.
Estrai numeri da stringhe di testo alfanumeriche miste con una formula
Estrai facilmente numeri da stringhe di testo alfanumeriche miste con uno strumento eccezionale
Estrai numeri da stringhe di testo alfanumeriche miste con codice VBA
Estrai numeri da stringhe di testo alfanumeriche miste con una formula
Puoi utilizzare la seguente formula per estrarre numeri da qualsiasi posizione all’interno di una stringa di testo in Excel.
1. Seleziona una cella vuota in cui visualizzare i numeri estratti, inserisci la formula seguente e premi il tasto Invio. Trascina quindi il quadratino di riempimento automatico verso il basso per applicare la formula ad altre celle.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, «»)))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT(«$1:$»&LEN(A2))),1))* ROW(INDIRECT(«$1:$»&LEN(A2))),0), ROW(INDIRECT(«$1:$»&LEN(A2))))+1,1) * 10^ROW(INDIRECT(«$1:$»&LEN(A2)))/10),«»)
Nota: nella formula, A1 è la cella che contiene la stringa di testo da cui vuoi estrarre i numeri. Modificala in base alle tue esigenze.
I numeri vengono così estratti da qualsiasi posizione all’interno della stringa di testo nelle celle specificate, come mostrato nello screenshot precedente.
Estrai facilmente numeri da stringhe di testo alfanumeriche miste con Kutools per Excel
Questa sezione ti presenta la pratica funzione Estrai testo di Kutools per Excel: grazie a essa, estrarre numeri da una stringa di testo diventa un gioco da ragazzi!
1. Fai clic su Kutools > Testo > Estrai testo per attivare la funzione.
2. Nella finestra di dialogo Estrai testo, effettua le impostazioni seguenti.
per selezionare l’intervallo di celle da cui Estrai testo;
Nota: Selezionando la casella Inserisci come formulaNell’angolo in basso a sinistra della finestra di dialogo, il risultato verrà inserito come formula nelle celle di destinazione, aggiornandosi automaticamente non appena cambia il valore della cella di riferimento.
3. Nella finestra di dialogo Estrai testo, seleziona una cella vuota in cui visualizzare il testo estratto e fai clic su OK.
I numeri vengono estratti da qualsiasi posizione all’interno della stringa di testo. Vedi lo screenshot:
Se desidera provare gratuitamente (30 giorni) questa utility, faccia clic qui per scaricarla, quindi segua la procedura illustrata nei passaggi sopra.
Mantieni solo i numeri nelle stringhe di testo alfanumeriche miste con codice VBA
Il seguente codice VBA ti permette di rimuovere tutti i caratteri non numerici da un intervallo specificato, lasciando solo i numeri nelle celle. Procedi come segue.
Nota: poiché il codice agisce direttamente sull’intervallo originale, conserva una copia dei dati originali per evitare perdite accidentali.
1. Premi contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Nella finestra di Microsoft Visual Basic, Applications, fai clic su Inserisci>Modulo. Copia quindi il codice VBA seguente e incollalo nella finestra del modulo.
Codice VBA: rimuovi tutti i caratteri non numerici dalle celle
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. Premi il tasto F5 per eseguire il codice. Si aprirà quindi una finestra di dialogo Kutools per Excel; seleziona l’intervallo contenente le stringhe di testo alfanumeriche miste da cui desideri mantenere solo i numeri e fai clic sul pulsante OK.
Tutti i caratteri non numerici Intervallo selezionato sono stati immediatamente rimossi e sono rimasti soltanto i numeri. Vedi lo screenshot:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi