Como substituir todos os números nas células por «x» no Excel?
No Excel, poderá querer substituir os números nas células por «x» para ocultar dados sensíveis, padronizar a formatação, impedir cálculos ou indicar valores em falta ou incompletos. Este artigo orienta-o através de uma solução simples com código VBA para alcançar este objetivo de forma rápida e fácil.
Substitua todos os números nas células por «x» com código VBA
Substitua todos os números nas células por «x» com código VBA
O código VBA seguinte permite substituir todos os números nas células selecionadas por «x» no Excel. Siga estes passos:
1. Selecione as células que contêm os números que pretende substituir por x e, em seguida, prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela de Código.
Código VBA: Substituir todos os números 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. Prima a tecla F5 para executar o código. Depois, poderá verificar que todos os números nas células selecionadas foram substituídos por x, conforme ilustrado na imagem seguinte.
Artigos relacionados:
- Como localizar e substituir todas as células em branco por um número ou texto específico no Excel?
- Como substituir vírgulas por quebras de linha (Alt + Enter) nas células do Excel?
- Como substituir quebras de linha por outro caractere no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos