Note: The other languages of the website are Google-translated. Back to English

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 Sub

3. wciśnij F5 klucz do uruchomienia kodu.

4. Następnie a Kutools dla programu 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 Sub

3. wciśnij F5 , aby uruchomić kod, a następnie kliknij OK przycisk w Kutools dla programu 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:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami 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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL