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 Sub

3. 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?