Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com s'extreuen nombres de cadenes de text alfanumèriques mixtes en Excel?

De vegades, és possible que necessiteu extreure els números només d'una llista de cadenes alfanumèriques. Podeu fer-ho amb els mètodes següents.

Extraieu els números de les cadenes de text alfanumèriques mixtes amb codi VBA

Extraieu fàcilment els números de les cadenes de text alfanumèriques mixtes amb Kutools per a Excel


Extraieu fàcilment els números de la cadena alfanumèrica mixta a Excel

El Kutools for Excel's EXTRACTRES la utilitat us ajuda a extreure fàcilment tots els números de la cadena de text alfanumèrica mixta en Excel. Mostra la captura de pantalla a continuació:

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 60 dies. Més... Descarregueu la prova gratuïta ara


Extraieu els números de les cadenes de text alfanumèriques mixtes amb codi VBA


El següent codi VBA us pot ajudar a esborrar tots els caràcters no numèrics del rang especificat i mantenir només els números a les cel·les. Feu el següent.

1. Premeu Alt + F11 tecles simultànies per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu i enganxeu el codi VBA següent a la finestra Mòdul.

Codi VBA: elimineu tots els caràcters no numèrics de les cel·les

Sub GetNumbers()
    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 Sub

3. Llavors a Kutools for Excel apareix el quadre de diàleg, seleccioneu l'interval amb cadenes de text alfanumèriques mixtes que necessiteu per conservar només els números i feu clic a OK botó.

Ara, tots els caràcters no numèrics del rang seleccionat s'han eliminat immediatament i només es mantenen els números. Mostra la captura de pantalla:


Extraieu fàcilment els números de les cadenes de text alfanumèriques mixtes amb Kutools per a Excel

El codi anterior destruirà les dades originals, si voleu conservar les dades originals, aquí us puc recomanar una eina útil: Kutools for Excel. Amb el seu EXTRACTRES funció, podeu extreure ràpidament nombres de cadenes alfanumèriques sense recordar la fórmula o executar el codi VBA.

Kutools for Excel : amb més complements útils de 300 de Excel, lliure de provar sense límit en 60 dies.

1. Seleccioneu una cel·la en blanc per col·locar el número extret i, a continuació, feu clic a Kutools > Funcions > Text > EXTRACTRES. Mostra la captura de pantalla:

2. A la Arguments de funcions quadre de diàleg, feu clic a la icona per seleccionar la cel·la (diu A2) que conté la cadena de text alfanumèrica que extraurà el número i, a continuació, feu clic a la OK botó.


Ara s'extreuen tots els números de la cel·la A2. Podeu arrossegar el control Fill Handle per extreure tots els números de les cel·les de l'esquerra.

Extraieu fàcilment els números de les cadenes de text alfanumèriques mixtes amb Kutools per a Excel

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 60 dies. Descarregueu la prova gratuïta ara!



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.