Como encontrar e substituir vários valores de uma só vez no Excel?
Como todos sabemos, a função Localizar e Substituir pode ser usada para localizar várias células idênticas e substituí-las por um valor específico. No entanto, às vezes é necessário realizar substituições de muitos para muitos simultaneamente. Por exemplo, tenho um intervalo 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 mostrado na captura de tela à esquerda. Você tem algum método eficaz para realizar essa tarefa no Excel?
Encontre e substitua vários valores de uma só vez com código VBA
Encontre e substitua vários valores de uma só vez com código VBA
Se você está cansado de procurar e substituir os valores repetidamente, o seguinte código VBA pode ajudá-lo a substituir vários valores pelos textos desejados de uma só vez.
1. Por favor, crie suas condições que deseja usar, contendo os valores originais e os novos valores. Veja a captura de tela:
2. Em seguida, pressione as teclas "ALT" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
3. Clique em "Inserir" > "Módulo" e cole o seguinte código na janela do Módulo.
Código VBA: Encontre e substitua vários valores de uma só 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. Em seguida, pressione a tecla "F5" para executar este código; na caixa de prompt que aparece, especifique o intervalo de dados onde deseja substituir os valores pelos novos.
5. Clique em "OK", e outra caixa de prompt será exibida para lembrá-lo de selecionar os critérios que você criou na etapa 1. Veja a captura de tela:
6. Depois, clique em "OK"; todos os valores especificados foram substituídos pelos novos conforme solicitado.
Artigos relacionados:
Como encontrar e substituir texto específico em caixas de texto?
Como encontrar e substituir texto em títulos de gráficos no Excel?
Como encontrar e substituir texto dentro de comentários no Excel?
Como alterar vários caminhos de hiperlinks de uma só vez no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência sem igual. Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo.Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface de abas para o Office e facilita muito seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas da mesma janela, em vez de novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!