¿Cómo se borra el contenido de un rango con nombre en Excel?
Esta guía explica cómo borrar el contenido de un rango con nombre específico o de todos los rangos con nombre en la hoja de cálculo activa de Excel. Con VBA, podrá mantener intactos los rangos con nombre mientras elimina su contenido de forma rápida y eficaz.
Borrar el contenido de un rango con nombre con código VBA
Borrar el contenido de un rango con nombre con código VBA
Siga estos pasos para borrar el contenido de un rango con nombre específico o de todos los rangos con nombre en la hoja de trabajo actual.
1. En la hoja de cálculo que contiene el rango con nombre del que desea borrar el contenido, pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie el siguiente código VBA en la ventana de código.
Para borrar el contenido de un rango con nombre específico en la hoja de cálculo, utilice el siguiente código VBA.
Código VBA 1: Borrar el contenido de un rango con nombre específico en Excel
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub3. Pulse la tecla F5 para ejecutar el código.
4. A continuación, aparecerá un cuadro de diálogo Kutools para Excel. Escriba el nombre del rango con nombre del que desea borrar el contenido y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:
Todo el contenido de las celdas del rango con nombre especificado se eliminará de inmediato.
Para eliminar el contenido de todos los rangos con nombre en la hoja de trabajo activa, utilice el siguiente código VBA.
Código VBA 2: Borrar el contenido de todos los rangos con nombre en el Hoja de Cálculo Actual en Excel
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub3. Pulse la tecla F5 para ejecutar el código y, a continuación, haga clic en el botón Aceptar en el cuadro de diálogo Kutools para Excel, tal como se muestra en la siguiente captura de pantalla.
A continuación, se eliminará el contenido de todos los rangos con nombre de la hoja de cálculo actual.
Artículos relacionados:
- ¿Cómo se borra el contenido de un cuadro combinado mediante código VBA en Excel?
- ¿Cómo eliminar contenido y formato simultáneamente en celdas de Excel?
- ¿Cómo eliminar los valores restringidos en las celdas de Excel?
- ¿Cómo borrar el contenido de celdas específicas cuando cambia el valor de otra celda en Excel?
- ¿Cómo borrar el contenido de celdas específicas al abrir y cerrar un libro de 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