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 as capturas de tela:

          

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 Sub

Có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 Sub

3. 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