Jak vymazat obsah pojmenovaného rozsahu v aplikaci Excel?

Tato příručka vysvětluje, jak vymazat obsah z konkrétního pojmenovaného rozsahu nebo všech pojmenovaných rozsahů v aktivním listu v Excelu. Pomocí VBA můžete zachovat pojmenované rozsahy a zároveň efektivně odstranit jejich obsah.

Vymažte obsah pojmenovaného rozsahu pomocí kódu VBA

Vymažte obsah pojmenovaného rozsahu pomocí kódu VBA

Chcete-li vymazat obsah konkrétního pojmenovaného rozsahu nebo celého pojmenovaného rozsahu v aktuálním listu, postupujte následovně.

1. V listu, který obsahuje pojmenovaný rozsah, ze kterého chcete vymazat obsah, stiskněte klávesu Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Potom zkopírujte následující kód VBA do okna Kód.

Chcete-li vymazat obsah konkrétního pojmenovaného rozsahu v listu, použijte níže uvedený kód VBA.

Kód VBA 1: Vymažte obsah konkrétního pojmenovaného rozsahu v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu.

4. Pak a Kutools pro Excel objeví se dialogové okno. Zadejte název pojmenovaného rozsahu, ze kterého vymažete obsah, a poté klikněte na OK knoflík. Viz screenshot:

Veškerý obsah v buňkách zadaného pojmenovaného rozsahu bude okamžitě vymazán.

Chcete-li vymazat obsah ze všech pojmenovaných oblastí v aktivním listu, použijte následující kód VBA.

Kód VBA 2: Vymažte obsah všech pojmenovaných rozsahů v aktivním listu v Excelu

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. zmáčkni F5 spusťte kód a poté klikněte na OK tlačítko v Kutools pro Excel zobrazeno dialogové okno níže.

Poté se obsah všech pojmenovaných rozsahů vymaže z aktivního listu.

Související články:

• Jak vymazat obsah rozbalovacího seznamu s kódem VBA v aplikaci Excel?
• Jak vymazat obsah a formátování současně v buňkách v aplikaci Excel?
• Jak vymazat omezené hodnoty v buňkách v aplikaci Excel?
• Jak vymazat zadaný obsah buňky, pokud se hodnota jiné buňky změní v aplikaci Excel?
• Jak vymazat zadaný obsah buňky při otevření a ukončení v sešitu aplikace Excel?