Hoe verwijder ik niet-numerieke tekens uit cellen in Excel?
Stel dat u een werkblad heeft met veel van dergelijke gegevens ABCD4578124YUIOH, en u wilt alleen de niet-numerieke tekens verwijderen ABCDYUIOH maar laat de numerieke tekens in cellen staan. Je kunt die tekens natuurlijk een voor een verwijderen, maar hier kun je de niet-numerieke tekens snel als volgt uit cellen verwijderen:
Verwijder niet-numerieke tekens met VBA-code
Een handig hulpmiddel om niet-numerieke tekens met één klik te verwijderen
Verwijder niet-numerieke tekens met VBA-code
Ga als volgt te werk om niet-numerieke tekens uit een bereik met VBA-code te verwijderen:
1. Klik Ontwikkelaar > Visual Basic om de te openen Microsoft Visual Basic voor applicaties venster. In de Microsoft Visual Basic voor applicaties venster klikt Invoegen > Module, en kopieer en plak de volgende codes in de module:
VBA: verwijder alle niet-numerieke tekens
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 vervolgens op de knop om de code uit te voeren, in het opduiken KutoolsvoorExcel dialoogvenster, selecteer een bereik met de niet-numerieke tekens die u wilt verwijderen en klik vervolgens op het OK knop. Zie screenshot:
3. Vervolgens worden alle niet-numerieke tekens in het geselecteerde bereik verwijderd.
Als de cijfers met decimale punten zijn, kunt u de volgende VBA gebruiken:
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
U kunt de resultaten zien zoals onderstaand screenshot getoond:
Een handig hulpmiddel om niet-numerieke tekens met één klik te verwijderen
Voor het verwijderen van niet-numerieke tekens in een bereik, Kutools for Excel's Tekens verwijderen hulpprogramma kan het met één klik doen.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excel, doe dan als volgt:
1. Markeer het bereik waarvan u niet-numerieke tekens wilt verwijderen. Klik Kutools > Tekst > Tekens verwijderen.
2. In de Tekens verwijderen dialoogvenster, controleer de Niet numeriek optie in het Tekens verwijderen sectie en klik vervolgens op het OK or Solliciteer knop. En de niet-numerieke tekens worden onmiddellijk uit de selectie verwijderd. Zie screenshot:
Klik om Kutools voor Excel en nu gratis uit te proberen!
Voor meer gedetailleerde informatie over Tekens verwijderen van Kutools voor Excel, ga naar Verwijder karakters kenmerken beschrijving.
Demo: verwijder numerieke, alfabetische, niet-afdrukbare of alfanumerieke tekens uit cellen
Gerelateerde artikelen:
- Verwijder alfatekens uit cellen
- Verwijder numerieke tekens uit cellen
- Verwijder niet-afdrukbare tekens uit cellen
- Verwijder niet-alfa-tekens uit cellen
- Verwijder niet-alfanumerieke tekens
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!