Hur tar jag bort icke-numeriska tecken från celler i Excel?
Antag att du har ett kalkylblad med massor av sådan information ABCD4578124YUIOH, och du vill bara ta bort de icke-numeriska tecknen ABCDYUIOH men behåll de numeriska tecknen i celler. Naturligtvis kan du ta bort dessa tecken en efter en, men just här kan du snabbt bli av med de icke-numeriska tecknen från celler enligt följande:
Ta bort icke-numeriska tecken med VBA-kod
Ett praktiskt verktyg för att ta bort icke-numeriska tecken med ett klick
Ta bort icke-numeriska tecken med VBA-kod
Gör så här för att ta bort icke-numeriska tecken från ett intervall med VBA-kod:
1. Klicka Utvecklare > Visual Basic att öppna Microsoft Visual Basic för applikationer fönster. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, och kopiera och klistra sedan in följande koder i modulen:
VBA: Ta bort alla icke-numeriska tecken
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. Klicka sedan på -knappen för att köra koden, i pop-up KutoolsforExcel välj ett intervall med de icke-numeriska tecknen du vill ta bort och klicka sedan på OK knapp. Se skärmdump:
3. Sedan tas alla icke-numeriska tecken bort i det valda intervallet.
Om siffrorna med decimaler kan du använda följande 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 resultaten enligt nedanstående skärmdump:
Ett praktiskt verktyg för att ta bort icke-numeriska tecken med ett klick
För att ta bort icke-numeriska tecken i ett intervall, Kutools för ExcelÄr Ta bort tecken verktyget kan få det gjort med ett klick.
Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
När du har installerat Kutools för Excel, gör enligt nedan:
1. Markera det område du vill ta bort icke-numeriska tecken. Klick Kutools > text > Ta bort tecken.
2. I Ta bort tecken dialogrutan, kolla på Icke-numerisk alternativet i Ta bort tecken och klicka sedan på OK or Ansök knapp. Och de icke-numeriska tecknen tas bort från urvalet omedelbart. Se skärmdump:
Klicka för att ladda ner Kutools för Excel och gratis testversion nu!
För mer detaljerad information om Ta bort tecken av Kutools för Excel, besök Ta bort beskrivning av teckenfunktioner.
Demo: Ta bort numeriska, alfabetiska, icke-utskrivbara eller alfanumeriska tecken från celler
Relaterade artiklar:
- Ta bort alfabetecken från celler
- Ta bort numeriska tecken från celler
- Ta bort tecken som inte kan skrivas ut från celler
- Ta bort icke-alfabetecken från celler
- Ta bort icke-alfanumeriska tecken
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!