Como encontrar e substituir vários valores de uma vez no Excel?
Como todos sabemos, podemos usar a função Localizar e Substituir para localizar várias células iguais e substituí-las por um valor conforme necessário. Mas, às vezes, você precisa aplicar a substituição muitos para muitos simultaneamente. Por exemplo, eu tenho uma série de dados e agora quero substituir todas as maçãs por maçãs vermelhas, laranjas por laranjas verdes, bananas por bananas amarelas e assim por diante, conforme as capturas de tela mostradas a seguir, você tem alguma boa ideia para resolver esta tarefa em Excel?
Encontre e substitua vários valores de uma vez com o código VBA
Encontre e substitua vários valores de uma vez com o código VBA
Se você está cansado de localizar e substituir os valores uma e outra vez, o código VBA a seguir pode ajudá-lo a substituir vários valores pelos textos necessários de uma vez.
1. Crie as condições que deseja usar, que contenham os valores originais e os novos valores. Veja a imagem:
2. Em seguida, mantenha pressionado o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
3. Clique inserção > Móduloe cole o código a seguir na janela Módulo.
Código VBA: encontre e substitua vários valores de uma vez
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Então aperte F5 chave para executar este código, na caixa de prompt exibida, especifique o intervalo de dados que você deseja que substitua os valores por novos valores.
5. Clique OK, e outra caixa de prompt é exibida para lembrá-lo de selecionar os critérios que você criou na etapa 1. Veja a captura de tela:
6. Então clique OK, todos os valores específicos foram substituídos pelos novos valores conforme necessário imediatamente.
Artigos relacionados:
Como localizar e substituir texto específico em caixas de texto?
Como localizar e substituir texto em títulos de gráficos no Excel?
Como localizar e substituir texto em comentários no Excel?
Como alterar vários caminhos de hiperlink de uma vez no Excel?
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!