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 for ExcelÄr Ta bort tecken verktyget kan få det gjort med ett klick.

När du har installerat Kutools for 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 tillämpas knapp. Och de icke-numeriska tecknen tas bort från urvalet omedelbart. Se skärmdump:

Klicka för att hämta Kutools for Excel och gratis provperiod nu!

För mer detaljerad information om Ta bort tecken of Kutools for 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

---

De bästa Office-produktivitetsverktygen

Kutools for Excel Löser de flesta av dina problem och ökar din produktivitet med 80 %

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...