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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!