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?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!