Como substituir nomes de intervalos por referências de células no Excel?
Ao trabalhar com intervalos nomeados no Excel, você pode achá-los úteis para legibilidade e gerenciamento de fórmulas. No entanto, há situações em que você pode querer remover nomes de intervalos e restaurar as referências de células reais, especialmente ao compartilhar arquivos, solucionar problemas ou padronizar modelos. Neste artigo, vamos detalhar diferentes maneiras de substituir intervalos nomeados por suas respectivas referências de células no Excel.
Substituir nomes de intervalos por referências de células com código VBA
Por exemplo, nesta planilha, nomearei o intervalo A2:A6 como saleprice e nomearei B2 como discount, e então usarei ambos os nomes de intervalo em uma fórmula para calcular o novo preço. Veja as capturas de tela:
Depois de seguir os truques rápidos, o nome do intervalo será substituído pela referência de célula conforme mostrado abaixo:
Substituir nomes de intervalos por referências de células com código VBA
Usando o VBA para substituir nomes de intervalos nas fórmulas por referências de células, você pode fazê-lo passo a passo da seguinte forma:
1. Selecione o intervalo contendo as fórmulas que deseja substituir seus nomes por referências de células.
2. Pressione Alt + F11 para abrir uma nova janela do Microsoft Visual Basic for Applications que será exibida, depois clique em Inserir > Módulo, e copie e cole o seguinte código no módulo:
Código VBA: Substituir nomes de intervalos por referência absoluta
Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End SubCódigo VBA: Substituir nomes de intervalos por referência relativa
Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub3. Em seguida, pressione F5 para executar o código; uma caixa de diálogo aparece para selecionar um intervalo para substituição. Veja a captura de tela:
4. Depois, clique em OK, e todos os nomes dos intervalos das fórmulas selecionadas foram substituídos.
Substituir rapidamente e facilmente nomes de intervalos por referências de células com o Kutools para Excel
Embora fazer isso manualmente ou através do VBA possa ser demorado e propenso a erros, o Kutools para Excel oferece uma solução de um clique para simplificar todo o processo. Se você tem o Kutools para Excel, sua ferramenta Converter Nome em Intervalo de Referência ajudará você a substituir nomes de intervalos por referências de células rapidamente e facilmente.
1. Por favor, aplique esta utilidade clicando em Kutools > Ferramentas de Nome > Converter Nome em Intervalo de Referência.
2. Uma caixa de diálogo é exibida, clique na aba Intervalo e selecione o intervalo que você deseja substituir pelas referências de células a partir do Intervalo Base. Em seguida, clique no botão Substituir. Veja a captura de tela:
3. Outra caixa de prompt será exibida informando o número de fórmulas modificadas e fórmulas inalteradas; clique em OK, e os nomes dos intervalos no intervalo selecionado terão sido substituídos por referências de células.
🔚 Conclusão
Se você está lidando com algumas fórmulas ou com uma pasta de trabalho inteira, substituir intervalos nomeados por referências de células reais é uma ótima maneira de melhorar a transparência, compatibilidade e facilitar a colaboração.
- Para usuários avançados, o VBA oferece uma solução flexível e programável para automatizar o processo de substituição.
- Para todos os outros, o Kutools para Excel oferece a maneira mais rápida e amigável de concluir a tarefa em poucos cliques — sem necessidade de codificação ou edição de fórmulas.
Ao escolher o método que melhor se adapta ao seu fluxo de trabalho, você pode limpar eficientemente suas fórmulas e garantir que suas planilhas permaneçam fáceis de entender e manter. Se você está interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais para ajudá-lo a dominar o Excel.
Artigo Relacionado:
Alterar referência de célula em fórmulas para nomes de intervalos no Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins