Come estrarre i numeri da stringhe di testo alfanumeriche miste in Excel?
Questo tutorial fornisce tre metodi per aiutare a estrarre i numeri da stringhe di testo alfanumeriche miste in Excel.
Estrai numeri da stringhe di testo alfanumeriche miste con formula
Estrai numeri da stringhe di testo alfanumeriche miste con codice VBA
Estrai facilmente numeri da stringhe di testo alfanumeriche miste con uno strumento straordinario
Estrai numeri da stringhe di testo alfanumeriche miste con formula
Puoi applicare la formula seguente per estrarre i numeri da qualsiasi punto di una stringa di testo in Excel.
1. Selezionare una cella vuota per visualizzare i numeri estratti, inserire la formula seguente e premere il tasto entrare chiave. Quindi trascina la maniglia 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),"")
Note:: Nella formula, A1 è la cella che contiene la stringa di testo da cui vuoi estrarre i numeri. Si prega di modificarlo in base alle proprie esigenze.
Quindi i numeri vengono estratti da qualsiasi punto in una stringa di testo nelle celle specificate come mostrato nell'immagine sopra.
Conserva solo i numeri in stringhe di testo alfanumeriche miste con codice VBA
Il seguente codice VBA può aiutarti a rimuovere tutti i caratteri non numerici dall'intervallo specificato e mantenere solo i numeri nelle celle. Si prega di fare quanto segue.
Note:: Poiché il codice esegue direttamente l'intervallo originale, conservare una copia dell'intervallo originale in caso di perdita di dati.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante 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 F5 chiave per eseguire il codice. Poi un Kutools for Excel si apre la finestra di dialogo, seleziona l'intervallo che contiene le stringhe di testo alfanumeriche miste, manterrai solo i numeri e fai clic su OK pulsante.
Ora tutti i caratteri non numerici nell'intervallo selezionato sono stati rimossi immediatamente e solo i numeri mantenuti. Vedi screenshot:
Estrai facilmente numeri da stringhe di testo alfanumerico miste con Kutools per Excel
Questa sezione consiglia l'utilità Estrai testo di Kutools per Excel. Con questa utility, estrarre numeri da una stringa di testo può essere facile da gestire.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Clic Kutools > Testo > Estrai testo per abilitare la funzione.
2. Nel Estrai testo finestra di dialogo, eseguire le impostazioni seguenti.
pulsante per selezionare l'intervallo di celle da cui estrarre il testo;
Nota: Controlla il Inserisci come formula casella nell'angolo in basso a sinistra della finestra di dialogo inserirà il risultato come formula nelle celle dei risultati. Quando il valore della cella di riferimento cambia, il risultato si aggiornerà automaticamente.
3. Nel Estrai testo finestra di dialogo, selezionare una cella vuota per visualizzare il testo estratto, quindi fare clic su OK.
Quindi vengono estratti i numeri da qualsiasi posizione in una stringa di testo. Vedi screenshot:
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
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!
