Cum se șterge conținutul intervalului denumit în Excel?

Acest articol vă va arăta metoda de ștergere a conținutului unui interval specificat, precum și ștergerea conținutului tuturor intervalelor denumite, dar păstrarea numelor intervalului într-o foaie de lucru activă în Excel.

Ștergeți conținutul intervalului denumit cu codul VBA

---

Ștergeți conținutul intervalului denumit cu codul VBA

Vă rugăm să procedați după cum urmează pentru a șterge conținutul unui interval specificat sau a întregului interval denumit din foaia de lucru curentă.

1. În foaia de lucru conține intervalul numit din care veți șterge conținutul, apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra Cod.

Pentru ștergerea conținutului unui interval specificat specificat în foaia de lucru, vă rugăm să aplicați codul VBA de mai jos.

Cod VBA 1: Ștergeți conținutul unui interval specificat denumit în 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. apasă pe F5 tasta pentru a rula codul.

4. Apoi a Kutools pentru Excel apare fereastra de dialog. Vă rugăm să introduceți numele intervalului numit din care veți șterge conținutul, apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, toate conținuturile din celulele din intervalul specificat sunt șterse imediat.

Pentru ștergerea conținutului tuturor intervalelor denumite în foaia de lucru activă, vă rugăm să aplicați codul VBA de mai jos.

Cod VBA 2: ștergeți conținutul tuturor intervalelor denumite în foaia activă în 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. apasă pe F5 pentru a rula codul, apoi faceți clic pe OK buton în Kutools pentru Excel fereastra de dialog ca în imaginea de mai jos.

Apoi conținutul tuturor intervalelor denumite este șters din foaia activă.

---

Legate de articole:

• Cum se șterge conținutul casetei combinate cu cod VBA în Excel?
• Cum se șterge conținutul și formatarea în același timp în celulele din Excel?
• Cum se șterg valorile restricționate din celulele din Excel?
• Cum se șterge conținutul celulei specificat dacă valoarea altei celule se modifică în Excel?
• Cum se șterge conținutul celulei specificat la deschidere și ieșire din registrul de lucru Excel?