Hoe verwijdert u alleen de tekst uit cellen die zowel getallen als tekst bevatten in Excel?
Zoals in de onderstaande afbeelding te zien is, hoe verwijdert u bij cellen met een combinatie van getallen en tekst alle tekst en behoudt u alleen de getallen? De methoden in dit artikel helpen u daarbij.
Verwijder alleen tekst uit cellen met getallen en tekst met een door de gebruiker gedefinieerde functie
Verwijder eenvoudig alleen tekst uit cellen met getallen en tekst met Kutools voor Excel
Verwijder alleen tekst uit cellen met getallen en tekst met een door de gebruiker gedefinieerde functie
U kunt ook de onderstaande door u gedefinieerde functie gebruiken om tekst uit opgegeven cellen te verwijderen en alleen de getallen te behouden.
1. Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. In het venster Microsoft Visual Basic for Applications klikt u op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster. Zie de afbeelding:
VBA-code: Verwijder alleen tekst uit cellen met getallen en tekst
Function OnlyNums(strWord As String)
Dim strChar As String
Dim x As Integer
Dim strTemp As String
strTemp = ""
Application.ScreenUpdating = False
For x = 1 To Len(strWord)
strChar = Mid(strWord, x, 1)
If Asc(strChar) >= 48 And _
Asc(strChar) <= 57 Then
strTemp = strTemp & strChar
End If
Next
Application.ScreenUpdating = True
OnlyNums = Val(strTemp)
End Function
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub
3. Druk op de toetsen Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
4. Selecteer een lege cel, voer de formule =OnlyNums(A2) in op de formulebalk en druk op Enter om het resultaat te krijgen. Laat de resulterende cel geselecteerd en sleep de vulgreep naar beneden om alle resultaten weer te geven. Zie de afbeelding:
Opmerking: In de formule is A2 de cel waaruit u tekst wilt verwijderen en alleen de getallen wilt behouden. Pas deze aan naar uw wens.
Nu ziet u dat alle tekst is verwijderd en alleen de getallen in de opgegeven cellen zijn bewaard.
Verwijder eenvoudig alleen tekst uit cellen met getallen en tekst met Kutools voor Excel
In dit gedeelte wordt het hulpprogramma Specifieke tekens verwijderen van Kutools voor Excel aanbevolen. Met dit handige hulpprogramma verwijdert u in slechts enkele klikken alle niet-numerieke tekens uit cellen en behoudt u alleen de getallen. Volg hiervoor de onderstaande stappen.
1. Selecteer de cellen waaruit u tekst wilt verwijderen en waarin u alleen getallen wilt behouden, en klik vervolgens op Kutools > Tekst > Specifieke tekens verwijderen.
2. In het dialoogvenster Specifieke tekens verwijderen vinkt u alleen het vakje Niet-numeriek aan en klikt u op de knop OK.
Alle niet-numerieke tekens worden direct uit de geselecteerde cellen verwijderd, zoals te zien is in de onderstaande afbeelding.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Gerelateerd artikel:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins