Como substituir nomes de intervalos por referências de células no Excel?
Algumas pessoas preferem usar muitos nomes de intervalos em suas fórmulas porque sentem que é mais claro e fácil de ler e compreender. Mas se você quiser ver as referências de células reais, como deve fazer? Aqui, este tutorial irá apresentar dois truques rápidos para resolver esse problema.
Substitua os nomes dos intervalos pelo código VBA;
Substitua nomes de intervalos de forma rápida e fácil com Kutools para Excel.
Por exemplo, nesta planilha, nomearei o intervalo A2: A6 como preço de vendae nomeie B2 como descontoe, em seguida, usando o nome do intervalo em uma fórmula para calcular o novo preço. Veja a imagem:
  |
 |
Depois de seguir os truques rápidos, o nome do intervalo será substituído pela referência da célula, conforme mostrado abaixo:
Substitua os nomes dos intervalos pelo código VBA
Usando o VBA para substituir os nomes dos intervalos da fórmula por referências de células, você pode fazer isso passo a passo da seguinte maneira:
1. Selecione o intervalo que contém as fórmulas cujos nomes deseja substituir por referências de células.
2. Clique Developer > Visual Basic or Alt + F11 para abrir um novo Microsoft Visual Basic para aplicativos a janela será exibida, clique inserção>Móduloe, em seguida, insira os seguintes códigos no módulo:
Código VBA: Substitua os nomes dos intervalos por referência absoluta
Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
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: Substitua os nomes dos intervalos por referência relativa
Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
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. Então clique 
para executar o código, uma caixa de diálogo é exibida para selecionar um intervalo a ser substituído. Veja a imagem:
4. Então clique OK. e todos os nomes de intervalo de fórmula selecionados foram substituídos. Veja a imagem:
 |
 |
|
|
Substitua os nomes dos intervalos por referências de células relativas |
Substitua os nomes dos intervalos por referências de células absolutas |
Substitua nomes de intervalos de forma rápida e fácil com Kutools para Excel
Se você tem Kutools for Excel, as TIC Substituir nomes de intervalo O utilitário o ajudará a substituir nomes de intervalos por referências de células de forma rápida e fácil.
Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Get it Now
Etapa 1. Aplique este utilitário clicando em Kutools > Mais ferramentas > Substituir nomes de intervalo. Veja a imagem:
Etapa 2. Uma caixa de diálogo pop-up chamada Substituir nomes de intervalo é exibido e clique em Variação seção e, em seguida, selecione o intervalo que deseja substituir por referências de células do Alcance Base. Veja a imagem:
Passo 3. Clique Substituir, Outra Substituir nomes de intervalo Uma caixa de diálogo pop-up será exibida para informar o número de fórmulas modificadas e fórmulas inalteradas, clique Ok, e então os nomes de intervalo no intervalo selecionado foram substituídos por referências de célula. Veja a imagem:
Para obter informações mais detalhadas sobre Substituir nomes de intervalo, Visite Substituir a descrição do recurso de nomes de intervalo.
Artigo Relativo:
Alterar referência de célula em fórmulas para nomes de intervalo 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!
