În timp ce lucrați cu Microsoft Excel , filtrarea datelor ne permite să vedem doar informațiile pe care le dorim. Ori de câte ori dorim să ne concentrăm pe anumite elemente dintr-un set de date sau tabele mari, această tehnică este utilă. Când munca este gata, avem nevoie să readucem acele date în foaia noastră de calcul. Deși Excel are deja un instrument integrat pentru acest lucru. Dar VBA este cea mai eficientă, mai rapidă și mai sigură modalitate de a efectua orice sarcină în Excel. În acest articol, vom da câteva exemple pentru a elimina filtrul în Excel VBA.

Descărcați caietul de practică

Puteți descărca caietul de lucru și exersa cu ele.

5 Metode simple pentru a elimina filtrul în Excel VBA

Excel dispune de instrumente și funcții încorporate pentru a elimina filtrele din date. Dar cu Excel VBA putem elimina rapid aceste filtre doar prin rularea aplicației VBA Pentru a elimina filtrele din date, vom utiliza următorul set de date. Setul de date conține câteva ID-uri de produse în coloana B , numele produselor în coloană C , iar țara de livrare în coloana D Deoarece dorim să vedem doar detaliile produsului Șampon și Balsam Acum, să presupunem că avem nevoie să ștergem aceste date filtrate. Vom folosi un fișier Macros Excel VBA Să demonstrăm exemplele de ștergere a acestor filtre din date cu ajutorul aplicației Excel VBA .

1. Aplicați VBA pentru a elimina toate filtrele din tabelul Excel

Cu Excel VBA , utilizatorii pot folosi cu ușurință codul care acționează ca meniurile Excel din panglică. Pentru a folosi codul VBA pentru a elimina toate filtrele din tabelul Excel, să urmăm pașii de mai jos.

ETAPE:

• În primul rând, mergeți la Dezvoltator din panglica de pe panglică.
• În al doilea rând, din Cod categoria, faceți clic pe Visual Basic pentru a deschide fereastra Editor Visual Basic . sau apăsați Alt + F11 pentru a deschide fereastra Editor Visual Basic .

• În loc să faceți acest lucru, puteți face clic dreapta pe foaia de lucru și mergeți la Vezi codul Acest lucru vă va duce, de asemenea, la Editor Visual Basic .

• Aceasta va apărea în Editor Visual Basic în care ne scriem codurile pentru a crea un tabel din interval.
• În al treilea rând, faceți clic pe Modul de la Introduceți bara de meniu derulantă.

• Acest lucru va crea un Modul în registrul de lucru.
• Și, copiați și lipiți VBA codul prezentat mai jos.

Cod VBA:

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub 

• După aceea, rulați codul făcând clic pe butonul RubSub sau apăsând comanda rapidă de la tastatură F5 .

• Și, în cele din urmă, urmând pașii, veți elimina toate filtrele din tabelul Excel de pe foaia de lucru.

Explicația codului VBA

 Sub Remove_Filters1() 

Sub este o parte a codului care este folosită pentru a gestiona activitatea din cod, dar care nu va returna nicio valoare. Este cunoscută și sub denumirea de subprocedură. Așadar, numim procedura noastră Remove_Filters1() .

 Dim lstObj ca ListObject 

Declararea variabilei.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set ne permite pur și simplu să evităm să tastăm din nou și din nou intervalul pe care trebuie să îl alegem atunci când executăm codul. Așadar, setăm referința la primul tabel de pe foaie.

 lstObj.AutoFilter.ShowAllData 

Această linie de cod va elimina toate filtrele pentru toate datele.

 End Sub 

Astfel se va încheia procedura.

Citește mai mult: Cum să eliminați filtrul în Excel (5 Easy & Moduri rapide)

2. Ștergeți toate filtrele de tabel Excel de pe o foaie folosind VBA

Să analizăm un alt exemplu de utilizare a Excel VBA pentru a elimina toate filtrele tabelului Excel de pe o foaie. Pentru aceasta, urmați pașii de mai jos.

ETAPE:

• În primul rând, mergeți la Dezvoltarea r din panglică.
• În al doilea rând, faceți clic pe Visual Basic pentru a deschide fereastra Editor Visual Basic .
• O altă modalitate de a deschide Editor Visual Basic este pur și simplu să apăsați Alt + F11 .
• Sau, faceți clic dreapta pe foaie, apoi selectați Vezi codul .
• În continuare, mergeți la Introduceți și selectați Modul din meniul derulant.
• Astfel, se va deschide fereastra Visual Basic.
• După aceea, copiați și lipiți fișierul Cod VBA mai jos.

Cod VBA:

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub 

• În continuare, apăsați butonul Tasta F5 sau faceți clic pe butonul Run Sub pentru a rula codul.

• Și, acest cod va șterge toate filtrele tabelului Excel din foaia dvs. și va da o ieșire de genul Metoda 1 .

Explicația codului VBA

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

Aceste linii de cod se derulează în buclă prin toate tabelele de pe foaie și elimină toate filtrele pentru întreaga foaie de calcul.

Citește mai mult: Cum să filtrați tabelul pivotant Excel (8 moduri eficiente)

3. Îndepărtați filtrul de pe o coloană cu VBA în Excel

Să aruncăm o privire la o altă modalitate de a șterge filtrul dintr-o coloană cu Excel VBA. Să vedem procedura pentru aceasta.

ETAPE:

• Pentru a începe, faceți clic pe butonul Dezvoltator de pe panglică.
• În al doilea rând, lansați programul Editor Visual Basic făcând clic pe Visual Basic .
• Alternativ, puteți accesa pagina Editor Visual Basic prin apăsarea Alt + F11 .
• Sau, faceți clic dreapta pe pe foaie și alegeți Vezi codul din meniu.
• În continuare, alegeți Modul din caseta derulantă de sub Introduceți .
• Și va apărea fereastra Visual Basic.
• Scrieți codul acolo.

Cod VBA:

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• În cele din urmă, apăsați butonul Tasta F5 pentru a rula codul.

• Utilizarea acestui cod va elimina filtrul dintr-o coloană din tabelul Excel.

Explicația codului VBA

 Sheet1.Range("B3:D16").AutoFilter Field:=4 

Această linie de cod specifică doar numărul câmpului, fără alți parametri.

Citește mai mult: Excel VBA pentru a filtra în aceeași coloană prin criterii multiple (6 exemple)

Lecturi similare

• Excel VBA: Cum se filtrează cu mai multe criterii în matrice (7 moduri)
• Cod VBA pentru a filtra datele după dată în Excel (4 exemple)
• Cum se utilizează filtrul în foaia Excel protejată (cu pași simpli)
• Filtrarea coloanei diferite prin criterii multiple în Excel VBA
• Cod VBA pentru filtrarea datelor în Excel (8 exemple)

4. Ștergeți toate filtrele dintr-o foaie de lucru activă

Acum, uitați-vă la un alt Excel VBA pentru a șterge toate filtrele dintr-o foaie de lucru activă. Să urmăm pașii.

ETAPE:

• Pentru a începe, deschideți panglica și selectați butonul Dezvoltator opțiune.
• Apoi, pentru a accesa Editor Visual Basic , faceți clic pe Visual Basic .
• Apăsarea Alt + F11 va afișa, de asemenea, aplicația Editor Visual Basic .
• Alternativ, faceți clic dreapta pe foaia și alegeți Vezi codul din meniul care apare.
• Acum, de la Introduceți opțiunea derulantă, alegeți Modul .
• Apoi copiați și lipiți fișierul VBA codul care urmează.

Cod VBA:

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Executați codul apăsând tasta F5 cheie.

• Și, în cele din urmă, veți putea elimina filtrele din datele dvs. folosind acest lucru VBA cod ca Metoda-1 .

Citiți mai mult: Cum să filtrați după listă într-o altă foaie în Excel (2 metode)

5. Excel VBA pentru a elimina toate filtrele dintr-un registru de lucru

Să explorăm un alt r Excel VBA Deci, haideți să analizăm etapele de jos.

ETAPE:

• Pentru a începe, deschideți panglica și alegeți Dezvoltator din meniul derulant.
• Apoi selectați Visual Basic pentru a deschide fereastra Editor Visual Basic .
• The Editor Visual Basic poate fi accesat și prin apăsarea tastelor Alt + F11 .
• Alternativ, puteți faceți clic dreapta pe foaia și selectați Vezi codul din meniul contextual.
• După aceea, selectați Modul de la Introduceți meniul derulant.
• Apoi, copiați și lipiți următorul cod VBA.

Cod VBA:

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• În cele din urmă, rulați codul apăsând F5 pe tastatură și veți vedea rezultatul în foaia de calcul.

• Acest VBA codul va șterge toate filtrele din întregul registru de lucru, așa cum se arată în figura prima metodă .

Explicația codului VBA

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Prima buclă este pentru a parcurge toate tabelele din registrul de lucru. A doua buclă este pentru a parcurge toate tabelele din foaia de lucru. Apoi, linia din interiorul buclei doar șterge filtrul din tabel. După aceea, închideți bucla cu ultimele două linii.

Citește mai mult: Comenzi rapide pentru filtrul Excel (3 utilizări rapide cu exemple)

Concluzie

Metodele de mai sus vă vor ajuta să Îndepărtați filtrul în Excel VBA Sperăm că acest lucru vă va fi de ajutor! Dacă aveți întrebări, sugestii sau feedback, vă rugăm să ne anunțați în secțiunea de comentarii. Sau puteți arunca o privire la celelalte articole din secțiunea ExcelWIKI.com blog!