Hvordan fjernes ikke-numeriske tegn fra celler i Excel?
Antag at du har et regneark med masser af sådanne data ABCD4578124YUIOH, og du vil kun fjerne de ikke-numeriske tegn ABCDYUIOH men hold de numeriske tegn i celler. Selvfølgelig kan du fjerne disse tegn en efter en, men lige her kan du slippe af med de ikke-numeriske tegn fra celler hurtigt som følger:
Fjern ikke-numeriske tegn med VBA-kode
Et praktisk værktøj til at fjerne ikke-numeriske tegn med et enkelt klik
Fjern ikke-numeriske tegn med VBA-kode
For at fjerne ikke-numeriske tegn fra et område med VBA-kode skal du gøre som følger:
1. Klik Udvikler > Visual Basic at åbne Microsoft Visual Basic til applikationer vindue. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier og indsæt derefter følgende koder i modulet:
VBA: Fjern alle ikke-numeriske tegn
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. Klik derefter på knap for at køre koden, når dukker op KutoolsforExcel i dialogboksen, vælg et område med de ikke-numeriske tegn, du vil fjerne, og klik derefter på OK knap. Se skærmbillede:
3. Derefter fjernes alle ikke-numeriske tegn i det valgte område.
Hvis tallene med decimaltegn, kan du bruge følgende 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
Du kan se resultaterne som vist nedenstående skærmbillede:
Et praktisk værktøj til at fjerne ikke-numeriske tegn med et enkelt klik
For at fjerne ikke-numeriske tegn i et interval, Kutools til Excel's Fjern tegn værktøj kan få det gjort med et enkelt klik.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som nedenfor:
1. Fremhæv det område, du vil fjerne ikke-numeriske tegn. Klik på Kutools > tekst > Fjern tegn.
2. I Fjern tegn dialogboksen, skal du kontrollere Ikke-numerisk valgmulighed i Fjern tegn sektion, og klik derefter på OK or Indløs knap. Og de ikke-numeriske tegn fjernes straks fra markeringen. Se skærmbillede:
Klik for at downloade Kutools til Excel og gratis prøveversion nu!
For mere detaljeret information om Fjern tegn af Kutools til Excel, besøg venligst Fjern karakterfunktionsbeskrivelse.
Demo: Fjern numeriske, alfabetiske, ikke-udskrivbare eller alfanumeriske tegn fra celler
Relaterede artikler:
- Fjern alfabetegn fra celler
- Fjern numeriske tegn fra celler
- Fjern ikke-udskrivbare tegn fra celler
- Fjern ikke-alfabetegn fra celler
- Fjern ikke-alfanumeriske tegn
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!