¿Cómo reemplazar los nombres de rango con referencias de celda en Excel?
Algunas personas prefieren usar muchos nombres de rango en sus fórmulas porque sienten que es más claro y fácil de leer y comprender. Pero si desea ver las referencias de celda reales, ¿cómo debería hacerlo? Aquí, este tutorial presentará dos trucos rápidos para resolver este problema.
Reemplace los nombres de rango con código VBA;
Reemplace rápida y fácilmente los nombres de rango con Kutools para Excel.
Por ejemplo, en esta hoja de trabajo, nombraré el rango A2: A6 como precio de venta, y nombre B2 como descuentoy luego usar el nombre del rango en una fórmula para calcular el nuevo precio. Ver captura de pantalla:
Después de seguir los trucos rápidos, el nombre del rango se reemplazará con la referencia de celda como se muestra a continuación:
Reemplace los nombres de rango con código VBA
Usando VBA para reemplazar los nombres de rango de la fórmula con referencias de celda, puede hacerlo paso a paso de la siguiente manera:
1. Seleccione el rango que contiene las fórmulas que desea reemplazar sus nombres con referencias de celda.
2. Hacer clic en Developer > Visual Basic or Alt + F11 para abrir una nueva Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro>Móduloy luego ingrese los siguientes códigos en el módulo:
Código de VBA: reemplace los nombres de rango con referencia 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 de VBA: reemplace los nombres de rango con referencia 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. Luego haga clic para ejecutar el código, se muestra un cuadro de diálogo para seleccionar un rango para reemplazar. Ver captura de pantalla:
4. Luego haga clic OK. y se han reemplazado todos los nombres de rango de fórmulas seleccionados. Ver captura de pantalla:
Reemplazar los nombres de rango con referencias de celda relativas |
Reemplazar los nombres de rango con referencias de celda absolutas |
Reemplace rápida y fácilmente los nombres de rango con Kutools para Excel
Si tiene Kutools for Excel, su Reemplazar nombres de rango La utilidad le ayudará a reemplazar nombres de rango con referencias de celda rápida y fácilmente.
Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Comprar ahora
Paso 1. Aplique esta utilidad haciendo clic en Kutools > Más herramientas > Reemplazar nombres de rango. Ver captura de pantalla:
Paso 2. Un cuadro de diálogo emergente llamado Reemplazar nombres de rango se muestra y haga clic en Gama de Colores sección y luego seleccione el rango que desea reemplazar con referencias de celda de la Rango base. Ver captura de pantalla:
Paso 3. Hacer clic Reemplaza, otro Reemplazar nombres de rango Se mostrará un cuadro de diálogo emergente para indicarle el número de fórmulas modificadas y fórmulas sin cambios, haga clic en Ok, y luego los nombres de rango en el rango seleccionado se han reemplazado con referencias de celda. Ver captura de pantalla:
Para obtener información más detallada acerca de Reemplazar nombres de rango, Por favor visite Descripción de la función Reemplazar nombres de rango.
Artículo relativo:
Cambiar la referencia de celda en fórmulas a nombres de rango en Excel
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!