¿Cómo reemplazar nombres de celda por referencias de celda en Excel?
Al trabajar con rangos con nombre en Excel, es probable que los encuentres muy útiles para mejorar la legibilidad y facilitar la gestión de fórmulas. No obstante, puede haber ocasiones en las que desees eliminar los nombres de celda y restaurar las referencias de celda reales, especialmente al compartir archivos, solucionar problemas o estandarizar plantillas. En este artículo, te explicamos distintas formas de reemplazar rangos con nombre por sus correspondientes referencias de celda en Excel.
Reemplace Nombre de celda por referencias de celda mediante código VBA
Reemplace rápidamente y fácilmente Nombre de celda por referencias de celda con Kutools para Excel
Por ejemplo, en esta hoja de cálculo, asignaré el nombre saleprice al rango A2:A6 y el nombre discount a la celda B2, y luego utilizaré ambos nombres en una fórmula para calcular el nuevo precio. Consulte las capturas de pantalla:
Tras aplicar estos trucos rápidos, los Nombre de celda se habrán reemplazado por referencias de celda, tal como se muestra a continuación:
Reemplace Nombre de celda por referencias de celda mediante código VBA
Para utilizar VBA y reemplazar los Nombre de celda de las fórmulas por referencias de celda, siga estos pasos:
1. Seleccione el rango que contiene las fórmulas cuyos nombres desea sustituir por referencias de celda.
2. Pulse Alt + F11 para abrir una nueva ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y copie y pegue el siguiente código en el módulo:
Código VBA: Reemplazar Nombre de celda por referencia 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: Reemplazar Nombre de celda por referencia 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. A continuación, pulse la tecla F5 para ejecutar el código; aparecerá un cuadro de diálogo en el que podrá seleccionar el rango que desea reemplazar. Consulte la captura de pantalla:
4. Luego, haga clic en Aceptar y todos los nombres de celda de las fórmulas seleccionadas se habrán reemplazado.
Reemplace rápidamente y fácilmente Nombre de celda por referencias de celda con Kutools para Excel
Aunque hacerlo manualmente o mediante VBA puede resultar lento y propenso a errores, Kutools para Excel ofrece una solución en un solo clic para simplificar todo el proceso. Con Kutools para Excel, su utilidad Convertir nombres a rango de referencia le permitirá reemplazar nombres de celda por referencias de celda de forma rápida y sencilla.
1. Aplique esta utilidad haciendo clic en Kutools > Herramientas de nombres > Convertir nombres a rango de referencia.
2. Se mostrará un cuadro de diálogo; haga clic en la pestaña Rango y seleccione el rango que desea reemplazar por referencias de celda en Basado en rango. A continuación, haga clic en el botón Reemplazar. Consulte la captura de pantalla:
3. Aparecerá otro cuadro de diálogo indicando el número de fórmulas modificadas y no modificadas; haga clic en Aceptar y los nombres de celda del rango seleccionado se habrán reemplazado por referencias de celda.
🔚 Conclusión
Tanto si trabaja con unas pocas fórmulas como con un libro entero, reemplazar los rangos con nombre por referencias de celda reales es una forma excelente de mejorar la transparencia, la compatibilidad y la facilidad de colaboración.
- Para usuarios avanzados, VBA ofrece una solución flexible y programable para automatizar el proceso de reemplazo.
- Para todos los demás, Kutools para Excel ofrece la forma más rápida y sencilla de completar la tarea en tan solo unos clics, sin necesidad de programar ni editar fórmulas.
Al elegir el método que mejor se adapte a su flujo de trabajo, podrá limpiar sus fórmulas de forma eficaz y asegurarse de que sus hojas de cálculo sigan siendo fáciles de entender y mantener. Si quiere descubrir más consejos y trucos de Excel,nuestra web ofrece miles de tutoriales para ayudarle a dominar Excel.
Artículo relacionado:
Cambiar la referencia de celda en fórmulas por Nombre de celda en Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos