Bli kvitt alt unntatt tall

March 26  by Eliza

Linda har en kolonne som inneholder bokstaver og siffer. Hun trenger å beholde de numeriske tegn og slett alfa seg. For eksempel kan en celle inneholde 10003E111 og hun ønsker å ende opp med 10.003.111.

Det er noen måter du kan nærme seg dette problemet. Før du fortsetter med noen løsning, men du bør være sikker på at du ikke prøver å endre på noe som egentlig ikke er brutt. For eksempel, vil du ønsker å sørge for at "E" som vises i antall er ikke en del av formatet på nummer med andre ord, en betegnelse på eksponenter. Hvis det er, så trenger du egentlig ikke ønsker å fjerne karakteren fordi det vil ende opp med å endre innholdet i den underliggende tall.

Hvis du finner ut at karakterene ikke er en del av nummeret format, så kan du først prøve å bruke formler for å fjerne alfategn. Hvis verdiene du ønsker å endre er i kolonne A, kan du skrive inn følgende (veldig lang) formel i kolonne B:

= MID (A1, MATCH (TRUE, ERFEIL (1 * MID (A1, ROW (INDIREKTE
("1:" & LEN (A1))), 1)), 0), - MATCH (TRUE, ERFEIL (1 * MID
(A1, ABS (ROW (INDIREKTE ("1:" & LEN (A1))) - LEN (A1 -1)), 1))
, 0) + LEN (A1) + 2-MATCH (TRUE, ERFEIL (1 * MID (A1, ROW
(INDIREKTE ("1:" & LEN (A1))), 1)), 0))

Sørg for at du skriver inn dette som en matriseformel ved å trykke Ctrl + Shift + Enter. Deretter skriver du inn følgende i kolonne C:

= ERSTATNINGS (A1, B1, "")

Resultatet er at C kolonnen inneholder verdiene fra kolonne A, uten at alfategn. Du kan bruke Lim inn utvalg for å kopiere informasjonen fra kolonne C til en annen kolonne, slik at du ender opp med faktiske verdier i stedet for formelresultater.

Denne tilnærmingen kan fungere bra for kortsiktig bruk på en enkelt arbeidsbok, men hvis du trenger å gjøre denne typen databehandling oftere vil du ønsker å opprette en brukerdefinert funksjon for å gjøre behandlingen. Her er et eksempel:

Funksjons OnlyNums (sverd As String)
Dim Schär As String
Dim x As Integer
Dim STEMP As String

STEMP = ""
For x = 1 Til Len (sverd)
Schär = Mid (sverd, x, 1)
Hvis Asc (Schär)> = 48 Og _
Asc (Schär) <= 57 Da
STEMP = STEMP & Schär
End If
Neste
OnlyNums = Val (STEMP)
End Function

Du bruker denne funksjonen ved å kalle den innenfra en regnearkcelle:

= OnlyNums (A1)

Funksjonen returnerer en tallverdi. Hvis du ønsker å lage en enda kortere makro å gjøre behandlingen, bør du vurdere følgende:

Funksjon StripChar (aText As String)
Dim jeg As Integer

StripChar = ""
For jeg = 1 Til Len (aText)
achar = Mid (aText, I, 1)
Velg sak achar
Case "0" til "9"
StripChar = StripChar & achar
End Select
Neste
End Function

For å bruke denne funksjonen, kan du bruke en av følgende i regnearket:

= STRIPCHAR (A1)
= VERDI (STRIPCHAR (A1))

De første returnerer en tekststreng som består av sifrene, returnerer andre tall versjon av denne strengen.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3840) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Bli kvitt alt unntatt tall.