Hvordan ryddes indholdet af det navngivne interval i Excel?

Denne artikel viser dig metode til at rydde indholdet af et specificeret navngivet område samt rydde indhold af alle navngivne områder, men holde områdens navne i et aktivt regneark i Excel.

Ryd indholdet af det navngivne område med VBA-kode

---

Ryd indholdet af det navngivne område med VBA-kode

Gør som følger for at rydde indholdet af et specificeret navngivet område eller alle navngivne områder i det aktuelle regneark.

1. I regnearket indeholder det navngivne område, du vil rydde indholdet fra, skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter nedenunder VBA-kode til kodevinduet.

Anvend nedenstående VBA-kode for at rydde indholdet af et specificeret navngivet område i regnearket.

VBA-kode 1: Ryd indholdet af et specificeret navngivet område i 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. Tryk på F5 nøgle for at køre koden.

4. Derefter a Kutools til Excel dialogboksen vises. Indtast navnet på det navngivne område, hvor du vil rydde indholdet, og klik derefter på OK knap. Se skærmbillede:

Derefter ryddes alt indhold i celler i det angivne navngivne område straks.

Anvend nedenstående VBA-kode for at rydde indholdet af alle navngivne områder i det aktive regneark.

VBA-kode 2: Ryd indholdet af alle navngivne områder i det aktive ark i 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. Tryk på F5 for at køre koden, og klik derefter på OK knappen i Kutools til Excel dialogboks som vist nedenstående skærmbillede.

Derefter ryddes indholdet af alle navngivne områder fra det aktive ark.

---

Relaterede artikler:

• Sådan ryddes indholdet af kombinationsboksen med VBA-kode i Excel?
• Hvordan ryddes indhold og formatering på samme tid i celler i Excel?
• Hvordan ryddes begrænsede værdier i celler i Excel?
• Hvordan ryddes specificeret celleindhold, hvis værdien af ​​en anden celle ændres i Excel?
• Hvordan ryddes specificeret celleindhold ved åbning og afslutning i Excel-projektmappe?