Como substituir células não vazias por um valor específico no Excel?
No Excel, podemos substituir ou preencher rapidamente e facilmente uma seleção com um valor específico ao premir as teclas Ctrl + Enter. Mas sabe como substituir apenas as células não vazias por um determinado valor na sua seleção — que contém tanto células vazias como células com valores?
Substituir células não Células vazias por um valor específico utilizando código VBA
Substituir células não Células vazias por um valor específico utilizando a funcionalidade Localizar e Substituir
No Excel, a funcionalidade Localizar e Substituir permite localizar todas as células não vazias e substituí-las por um valor à sua escolha.
1. Selecione o intervalo de dados em que pretende substituir apenas as células com valores.
2. Em seguida, prima Ctrl + H para abrir a caixa de diálogo Localizar e Substituir. No separador Localizar e Substituir, selecione Substituir, digite * no campo Localizar e introduza o valor pretendido na caixa de texto Substituir por, conforme ilustrado na captura de ecrã:
3. Depois, clique no botão Substituir Tudo. Irá surgir uma caixa de diálogo a indicar o número de células a substituir. Feche as caixas de diálogo e todos os valores no intervalo selecionado terão sido substituídos pelos dados especificados, conforme ilustrado nas capturas de ecrã:
 |  |  |
Substituir células não Células vazias por um valor específico utilizando código VBA
Ao utilizar o seguinte código VBA, pode substituir todos os valores das células preenchidas pelos dados pretendidos de uma só vez. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: Substituir células não Células vazias por um valor específico
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Irá surgir uma caixa de diálogo a solicitar que selecione o intervalo cujos dados pretende substituir, conforme ilustrado na captura de ecrã:
4. Depois, clique em OK e introduza o seu valor específico na caixa de diálogo seguinte, conforme ilustrado na captura de ecrã:
5. Em seguida, clique em OK e todos os valores no seu intervalo selecionado serão substituídos imediatamente pelos dados indicados.
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