Jak wyczyścić zawartość nazwanego zakresu w programie Excel?
W tym artykule pokażemy metodę czyszczenia zawartości określonego nazwanego zakresu, a także czyszczenia zawartości wszystkich nazwanych zakresów, ale zachowując nazwy zakresów w aktywnym arkuszu w programie Excel.
Wyczyść zawartość nazwanego zakresu za pomocą kodu VBA
Wyczyść zawartość nazwanego zakresu za pomocą kodu VBA
Wykonaj następujące czynności, aby wyczyścić zawartość określonego nazwanego zakresu lub całego nazwanego zakresu w bieżącym arkuszu.
1. W arkuszu zawierającym nazwany zakres, z którego chcesz wyczyścić zawartość, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna Code.
Aby wyczyścić zawartość określonego nazwanego zakresu w arkuszu, zastosuj poniższy kod VBA.
Kod VBA 1: Wyczyść zawartość określonego nazwanego zakresu w programie 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 Sub3. wciśnij F5 klucz do uruchomienia kodu.
4. Następnie a Kutools for Excel pojawi się okno dialogowe. Wprowadź nazwę nazwanego zakresu, z którego chcesz wyczyścić zawartość, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie cała zawartość komórek z określonego nazwanego zakresu jest natychmiast czyszczona.
Aby wyczyścić zawartość wszystkich nazwanych zakresów w aktywnym arkuszu, zastosuj poniższy kod VBA.
Kod VBA 2: Wyczyść zawartość wszystkich nazwanych zakresów w aktywnym arkuszu w programie 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 Sub3. wciśnij F5 , aby uruchomić kod, a następnie kliknij OK przycisk w Kutools for Excel okno dialogowe, jak pokazano na poniższym zrzucie ekranu.
Następnie zawartość wszystkich nazwanych zakresów jest usuwana z aktywnego arkusza.
Podobne artykuły:
- Jak wyczyścić zawartość pola kombi za pomocą kodu VBA w programie Excel?
- Jak jednocześnie wyczyścić zawartość i formatowanie w komórkach w programie Excel?
- Jak wyczyścić ograniczone wartości w komórkach w programie Excel?
- Jak wyczyścić określoną zawartość komórki, jeśli wartość innej komórki zmieni się w programie Excel?
- Jak wyczyścić określoną zawartość komórki podczas otwierania i zamykania w skoroszycie programu Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
