Hur rensar man innehållet i namnet i Excel?

Den här artikeln visar hur du rensar innehållet i ett angivet namngivet intervall samt rensar innehållet i alla namngivna intervall men behåller intervallnamnen i ett aktivt kalkylblad i Excel.

Rensa innehållet i namngivet intervall med VBA-kod

---

Rensa innehållet i namngivet intervall med VBA-kod

Gör så här för att rensa innehållet i ett angivet namngivet intervall eller alla namngivna intervall i det aktuella kalkylbladet.

1. I kalkylbladet innehåller det namngivna intervallet du rensar innehållet från, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till kodfönstret.

För att rensa innehållet i ett angivet namngivet intervall i kalkylbladet, använd VBA-koden nedan.

VBA-kod 1: Rensa innehållet i ett angivet namngivet intervall 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. tryck på F5 för att köra koden.

4. Sedan a Kutools för Excel dialogrutan dyker upp. Ange namnet på det namngivna intervallet som du rensar innehållet från och klicka sedan på OK knapp. Se skärmdump:

Sedan rensas allt innehåll i celler i det angivna namngivna området omedelbart.

För att rensa innehållet i alla namngivna intervall i det aktiva kalkylbladet, använd nedanstående VBA-kod.

VBA-kod 2: Rensa innehållet i alla namngivna områden i aktivt 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. tryck på F5 för att köra koden och klicka sedan på OK knapp i Kutools för Excel dialogrutan som visas nedan.

Sedan rensas innehållet i alla namngivna områden från det aktiva arket.

---

Relaterade artiklar:

• Hur rensar man innehållet i kombinationsrutan med VBA-kod i Excel?
• Hur rensar man innehåll och formatering samtidigt i celler i Excel?
• Hur rensar man begränsade värden i celler i Excel?
• Hur rensar du specificerat cellinnehåll om värdet för en annan cell ändras i Excel?
• Hur rensar du specificerat cellinnehåll vid öppning och avslutning i Excel-arbetsbok?