Hoe de inhoud van het benoemde bereik in Excel te wissen?

Dit artikel toont u de methode om de inhoud van een opgegeven benoemd bereik te wissen en de inhoud van alle benoemde bereiken te wissen, maar de bereiknamen in een actief werkblad in Excel te behouden.

Wis de inhoud van het genoemde bereik met VBA-code

---

Wis de inhoud van het genoemde bereik met VBA-code

Ga als volgt te werk om de inhoud van een opgegeven benoemd bereik of alle benoemde bereiken in het huidige werkblad te wissen.

1. In het werkblad bevat het benoemde bereik waarvan u de inhoud wilt wissen, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.

Pas de onderstaande VBA-code toe om de inhoud van een opgegeven benoemd bereik in het werkblad te wissen.

VBA-code 1: wis de inhoud van een opgegeven benoemd bereik in 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. druk de F5 sleutel om de code uit te voeren.

4. Vervolgens een Kutools for Excel dialoogvenster verschijnt. Voer de naam in van het benoemde bereik waarvan u de inhoud wilt wissen en klik vervolgens op het OK knop. Zie screenshot:

Vervolgens wordt alle inhoud in cellen van het opgegeven benoemde bereik onmiddellijk gewist.

Pas de onderstaande VBA-code toe om de inhoud van alle benoemde bereiken in een actief werkblad te wissen.

VBA-code 2: wis de inhoud van alle benoemde bereiken in het actieve blad in 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. druk de F5 toets om de code uit te voeren, en klik vervolgens op de OK knop in de Kutools for Excel dialoogvenster zoals hieronder afgebeeld.

Vervolgens wordt de inhoud van alle benoemde bereiken gewist van het actieve blad.

---

Gerelateerde artikelen:

• Hoe de inhoud van de keuzelijst met invoervak ​​met VBA-code in Excel te wissen?
• Hoe inhoud en opmaak tegelijkertijd in cellen in Excel wissen?
• Hoe beperkte waarden in cellen in Excel te wissen?
• Hoe de gespecificeerde celinhoud wissen als de waarde van een andere cel in Excel verandert?
• Hoe de gespecificeerde celinhoud wissen bij openen en afsluiten in Excel-werkmap?