¿Cómo borrar 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 una hoja de cálculo activa en Excel. Usando VBA, puedes conservar los rangos con nombre mientras eliminas su contenido de manera eficiente.

Borrar el contenido de un rango con nombre con código VBA

Borrar el contenido de un rango con nombre con código VBA

Por favor, sigue los siguientes pasos para borrar el contenido de un rango con nombre específico o de todos los rangos con nombre en la hoja de cálculo actual.

1. En la hoja de cálculo que contiene el rango con nombre del que deseas borrar el contenido, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego, copia 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, aplica 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 Sub

3. Presiona la tecla F5 para ejecutar el código.

4. Luego aparecerá un cuadro de diálogo de Kutools para Excel. Por favor, introduce el nombre del rango con nombre del que deseas borrar el contenido y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Todo el contenido en las celdas del rango con nombre especificado se borrará inmediatamente.

Para borrar el contenido de todos los rangos con nombre en la hoja de cálculo activa, aplica el siguiente código VBA.

Código VBA 2: Borrar el contenido de todos los rangos con nombre en la hoja activa 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 Sub

3. Presiona la tecla F5 para ejecutar el código, luego haz clic en el botón Aceptar en el cuadro de diálogo de Kutools para Excel como se muestra en la siguiente captura de pantalla.

Luego, el contenido de todos los rangos con nombre se borrará de la hoja activa.

Artículos relacionados:

• ¿Cómo borrar el contenido de un cuadro combinado con código VBA en Excel?
• ¿Cómo borrar contenido y formato al mismo tiempo en las celdas en Excel?
• ¿Cómo borrar valores restringidos en las celdas en Excel?
• ¿Cómo borrar el contenido de celdas específicas si cambia el valor de otra celda en Excel?
• ¿Cómo borrar el contenido de celdas específicas al abrir y cerrar un libro de trabajo en Excel?