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 Sub3. 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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins