Comment remplacer tous les nombres dans les cellules par des X dans Excel?

Comme illustré ci-dessous, comment remplacer tous les nombres dans les cellules par des x dans Excel? La méthode décrite dans cet article vous aidera à résoudre le problème.

Remplacez tous les nombres dans les cellules par des x avec le code VBA

Remplacez tous les nombres dans les cellules par des x avec le code VBA

Le code VBA suivant peut vous aider à remplacer tous les nombres dans les cellules sélectionnées par des X dans Excel. Veuillez faire comme suit.

1. Sélectionnez les cellules contenant des nombres que vous remplacerez par x, puis appuyez sur la touche autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Code.

Code VBA: remplace tous les nombres de la plage sélectionnée par des x dans 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. appuie sur le F5 clé pour exécuter le code. Ensuite, vous pouvez voir que tous les nombres dans les cellules sélectionnées sont remplacés par x comme illustré ci-dessous.

Articles Liés:

• Comment trouver et remplacer toutes les cellules vides par un certain nombre ou du texte dans Excel?
• Comment remplacer les virgules par des nouvelles lignes (Alt + Entrée) dans les cellules dans Excel?
• Comment remplacer les sauts de ligne par br dans Excel?