Como substituir todos os números nas células por "x" no Excel?

No Excel, você pode querer substituir números em células por "x" para mascarar dados sensíveis, padronizar a formatação, evitar cálculos ou indicar valores ausentes/incompletos. Este artigo irá guiá-lo através de uma solução simples usando código VBA para alcançar isso de forma rápida e fácil.

Substituir todos os números nas células por "x" com código VBA

Substituir todos os números nas células por "x" com código VBA

O seguinte código VBA pode ajudá-lo a substituir todos os números nas células selecionadas por "x" no Excel. Por favor, siga os passos abaixo.

1. Selecione as células que contêm os números que você deseja substituir por x, e então pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela de Código.

Código VBA: Substituir todos os números no intervalo selecionado por "x" no 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. Pressione a tecla F5 para executar o código. Então você poderá ver que todos os números nas células selecionadas foram substituídos por x, conforme mostrado na captura de tela abaixo.

Artigos relacionados:

• Como localizar e substituir todas as células em branco por um determinado número ou texto no Excel?
• Como substituir vírgulas por novas linhas (Alt + Enter) nas células no Excel?
• Como substituir quebras de linha por br no Excel?