Como substituir células não vazias por valores específicos no Excel?
No Excel, podemos substituir ou preencher uma seleção com um valor específico de forma rápida e fácil pressionando Ctrl + Enter mas, você sabe como substituir apenas células não vazias por um determinado valor em seu intervalo selecionado que contém células em branco e células de valor.
Substitua as células não vazias por um valor específico usando o recurso Localizar e Substituir
Substitua as células não vazias por um valor específico usando o código VBA
Substitua as células não vazias por um valor específico usando o recurso Localizar e Substituir
No Excel, o recurso Localizar e Substituir pode nos ajudar a localizar todas as células não vazias e, em seguida, substituí-las por um valor especificado conforme desejar.
1. Selecione o intervalo de dados que deseja substituir apenas as células de valor.
2. E, em seguida, pressione Ctrl + H para abrir o Localizar e substituir caixa de diálogo, no Localizar e substituir diálogo, sob Substituir guia, tipo * no Encontre o que campo e insira o valor que você precisa em substituir por caixa de texto, veja a captura de tela:
3. Então clique substituir tudo botão, e uma caixa de diálogo apareceu para informar o número de células a serem substituídas, feche as caixas de diálogo e, em seguida, todos os valores no intervalo selecionado foram substituídos pelos dados especificados, consulte as capturas de tela:
 |
 |
 |
Substitua as células não vazias por um valor específico usando o código VBA
Usando o código VBA a seguir, você também pode substituir todas as células de dados pelos valores necessários de uma vez. Faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: Substitua as células não 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. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar um intervalo no qual deseja substituir os dados, consulte a captura de tela:
4. Então clique OKe insira seu valor específico na próxima caixa de prompt, consulte a captura de tela:
5. E, em seguida, clique em OK, todos os valores do intervalo selecionado foram substituídos por determinados dados de uma vez.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
