Jak vymazat obsah pojmenovaného rozsahu v aplikaci Excel?

Tento článek vám ukáže způsob vymazání obsahu zadaného pojmenovaného rozsahu a také vymazání obsahu všech pojmenovaných rozsahů, ale ponechání názvů rozsahů v aktivním listu v aplikaci Excel.

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

---

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

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

1. V listu obsahuje pojmenovaný rozsah, ze kterého vymažete obsah, stiskněte 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. Poté zkopírujte níže uvedený kód VBA do okna Kód.

Pro vymazání obsahu zadaného pojmenovaného rozsahu v listu použijte níže uvedený kód VBA.

Kód VBA 1: Vymazání obsahu zadané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:

Poté se okamžitě vymaže veškerý obsah v buňkách zadaného pojmenovaného rozsahu.

Pro vymazání obsahu všech pojmenovaných rozsahů v aktivním listu použijte níže uvedený kód VBA.

Kód VBA 2: Vymazání obsahu všech pojmenovaných rozsahů v aktivním listu v aplikaci 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. 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?