Hoe alle getallen in cellen vervangen door "x"-en in Excel?
In Excel wilt u misschien getallen in cellen vervangen door "x"-en om gevoelige gegevens te maskeren, de opmaak te standaardiseren, berekeningen te voorkomen of ontbrekende/onvolledige waarden aan te geven. Dit artikel begeleidt u door een eenvoudige VBA-codeoplossing om dit snel en gemakkelijk te bereiken.
Vervang alle getallen in cellen door "x"-en met VBA-code
Vervang alle getallen in cellen door "x"-en met VBA-code
De volgende VBA-code kan u helpen bij het vervangen van alle getallen in geselecteerde cellen door "x"-en in Excel. Volg de onderstaande stappen.
1. Selecteer de cellen met getallen die u wilt vervangen door x, en druk vervolgens op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Code-venster.
VBA-code: Vervang alle getallen in geselecteerd bereik door "x"-en in Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub3. Druk op de F5-toets om de code uit te voeren. Vervolgens kunt u zien dat alle getallen in de geselecteerde cellen zijn vervangen door x, zoals in de onderstaande schermafbeelding te zien is.
Gerelateerde artikelen:
- Hoe alle lege cellen vervangen door een bepaald getal of tekst in Excel?
- Hoe komma's vervangen door nieuwe regels (Alt + Enter) in cellen in Excel?
- Hoe regeleinden vervangen door br in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen