Hur man tar bort filter i Excel VBA (5 enkla metoder)

Hugh West

18-10-2023 Makroer & Excel VBA
  • Dela Detta
Hugh West

Under arbetet med Microsoft Excel När vi filtrerar data kan vi bara se den information som vi vill ha. När vi vill koncentrera oss på vissa delar av en stor datamängd eller tabeller är den här tekniken mycket användbar. När arbetet är klart behöver vi återföra dessa data till vårt kalkylark. Excel har redan ett inbyggt verktyg för detta. Men VBA är det mest effektiva, tidsbesparande och säkra sättet att utföra alla uppgifter i Excel. I den här artikeln kommer vi att ge några exempel på hur man tar bort filtret i Excel VBA.

Ladda ner övningsboken

Du kan ladda ner arbetsboken och öva med dem.

VBA för att ta bort filter.xlsm

5 enkla metoder för att ta bort filter i Excel VBA

Excel har inbyggda verktyg och funktioner för att ta bort filter från data. Men med Excel VBA kan vi snabbt ta bort dessa filter genom att köra VBA kod. För att ta bort filter från data ska vi använda följande dataset. Datasetetet innehåller några produkt-ID:n i kolumnen B , produktnamn i kolumnen C , och leveranslandet i kolumnen D Eftersom vi bara vill se produktinformationen. Schampo och Balsam , så vi filtrerade dem. Anta att vi nu behöver rensa de filtrerade uppgifterna. Vi använder några Excel VBA-makros för detta. Låt oss demonstrera exemplen för att rensa dessa filter från data med hjälp av Excel VBA .

1. Använd VBA för att ta bort alla filter från Excel-tabellen

Med Excel VBA kan användarna enkelt använda koden som fungerar som Excel-menyer från bandet. För att använda koden VBA kod för att ta bort alla filter från Excel-tabellen, låt oss följa stegen nedan.

STEG:

  • Först går du till Utvecklare i bandet.
  • För det andra, från den Kod kategori, klicka på Visual Basic för att öppna Redigerare för Visual Basic . eller tryck på Alt + F11 för att öppna Redigerare för Visual Basic .

  • Istället för att göra detta kan du högerklicka på arbetsbladet och gå till Visa kod Detta tar dig också till Redigerare för Visual Basic .

  • Detta kommer att visas i Redigerare för Visual Basic där vi skriver våra koder för att skapa en tabell från ett intervall.
  • För det tredje klickar du på Modul från Infoga rullgardinsmenyn.

  • Detta skapar en Modul i arbetsboken.
  • Kopiera och klistra in VBA koden som visas nedan.

VBA-kod: 

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub
  • Därefter kör du koden genom att klicka på RubSub eller genom att trycka på tangentbordsgenvägen F5 .

  • Slutligen tar du bort alla filter från Excel-tabellen på arbetsbladet genom att följa stegen.

VBA-kodförklaring 

 Sub Remove_Filters1()

Under är en del av koden som används för att hantera arbetet i koden, men som inte returnerar något värde. Den kallas också för underprocedur. Så vi kallar vår procedur för Remove_Filters1() . 

 Dim lstObj As ListObject

Deklaration av variabler. 

 Set lstObj = Sheet1.ListObjects(1)

Med VBA Set kan vi helt enkelt undvika att behöva skriva in det intervall som vi behöver välja om och om igen när vi kör koden. Vi ställer alltså in referensen till den första tabellen på arket. 

 lstObj.AutoFilter.ShowAllData

Den här kodraden tar bort alla filter för hela datan. 

 Slutar under

Detta avslutar förfarandet.

Läs mer: Hur man tar bort filter i Excel (5 enkla & snabba sätt)

2. Rensa alla Excel-tabellfilter på ett ark med VBA

Låt oss titta på ett annat exempel på hur du kan använda Excel VBA för att ta bort alla Excel-filter på ett ark. Följ stegen nedan.

STEG:

  • Gå först till Utveckla r-fliken i bandet.
  • För det andra klickar du på Visual Basic för att öppna Redigerare för Visual Basic .
  • Ett annat sätt att öppna Redigerare för Visual Basic är helt enkelt att trycka på Alt + F11 .
  • Eller högerklicka på arket och välj sedan Visa kod .
  • Gå sedan till Infoga och välj Modul från rullgardinsmenyn.
  • Detta kommer att öppna fönstret Visual Basic.
  • Därefter kopierar du och klistrar in VBA-kod nedan.

VBA-kod: 

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub
  • Tryck dessutom på F5-tangenten eller klicka på Kör underordnat för att köra koden.

  • Den här koden rensar alla exceltabellfilter från ditt ark och ger en utdata som Metod 1 .

VBA-kodförklaring 

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

Dessa kodrader går igenom alla tabeller på arket och tar bort alla filter för hela arbetsbladet.

Läs mer: Hur man filtrerar Excel-pivottabellen (8 effektiva sätt)

3. Ta bort filter från en kolumn med VBA i Excel

Låt oss ta en titt på ett annat sätt att ta bort filter från en kolumn med Excel VBA. Låt oss se hur det går till.

STEG:

  • För att börja, klicka på Utvecklare i bandet.
  • För det andra startar du Redigerare för Visual Basic genom att klicka på Visual Basic .
  • Alternativt kan du komma åt Redigerare för Visual Basic genom att trycka på Alt + F11 .
  • Eller, högerklicka på på arket och välj Visa kod från menyn.
  • Därefter väljer du den Modul från rullgardinsrutan under Infoga .
  • Fönstret Visual Basic visas.
  • Skriv koden där.

VBA-kod: 

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub
  • Slutligen trycker du på F5-tangenten för att köra koden.

  • Med den här koden tar du bort filtret från en kolumn i din Exceltabell.

VBA-kodförklaring 

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

Denna kodrad anger endast fältnumret och inga andra parametrar.

Läs mer: Excel VBA för att filtrera i samma kolumn med flera kriterier (6 exempel)

Liknande läsningar

  • Excel VBA: Hur man filtrerar med flera kriterier i en matris (7 sätt)
  • VBA-kod för att filtrera data efter datum i Excel (4 exempel)
  • Hur man använder filter i skyddade Excel-ark (med enkla steg)
  • Filtrera olika kolumner med flera kriterier i Excel VBA
  • VBA-kod för att filtrera data i Excel (8 exempel)

4. Rensa alla filter i ett aktivt arbetsblad

Ta nu en titt på en annan Excel VBA för att rensa alla filter från ett aktivt arbetsblad. Vi följer stegen nedan.

STEG:

  • För att börja öppnar du bandet och väljer Utvecklare alternativ.
  • För att få tillgång till Redigerare för Visual Basic , klicka på Visual Basic .
  • Tryck på Alt + F11 kommer också att ta fram den Redigerare för Visual Basic .
  • Alternativt, högerklicka på arket och välj Visa kod från menyn som visas.
  • Från och med nu, från Infoga rullgardinsalternativet, välj Modul .
  • Kopiera och klistra sedan in VBA koden som följer.

VBA-kod: 

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub
  • Kör koden genom att trycka på F5 nyckel.

  • Slutligen kan du ta bort filter från dina data med hjälp av följande VBA kod som Metod-1 .

Läs mer: Filtrera efter lista i ett annat ark i Excel (2 metoder)

5. Excel VBA för att ta bort alla filter från en arbetsbok

Låt oss utforska en annan r Excel VBA sätt att ta bort alla filter från en arbetsbok. Låt oss titta på stegen neråt.

STEG:

  • Öppna bandet och välj Utvecklare från rullgardinsmenyn.
  • Välj sedan Visual Basic för att öppna Redigerare för Visual Basic .
  • Redigerare för Visual Basic kan också nås genom att trycka på Alt + F11 .
  • Alternativt kan du högerklicka på arket och välj Visa kod från snabbmenyn.
  • Därefter väljer du Modul från Infoga rullgardinsmenyn.
  • Kopiera sedan följande VBA-kod och klistra in den.

VBA-kod: 

 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
  • Slutligen kör du koden genom att trycka på F5 på tangentbordet och du ser resultatet i arbetsbladet.

  • Denna VBA koden kommer att rensa alla filter från hela arbetsboken som visas i första metoden .

VBA-kodförklaring 

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

Den första slingan går genom alla tabeller i arbetsboken. Den andra slingan går genom alla tabeller i arbetsbladet. Linjen inuti slingan rensar filtret från tabellen. Därefter stänger du slingan med de två sista raderna.

Läs mer: Genväg för Excel-filter (3 snabba användningsområden med exempel)

Slutsats

Ovanstående metoder hjälper dig att Ta bort filter i Excel VBA Hoppas att detta hjälper dig! Om du har några frågor, förslag eller feedback, låt oss veta det i kommentarsfältet. Du kan också ta en titt på våra andra artiklar i ExcelWIKI.com blogg!

Tidigare inlägg Hur man lägger till rader i Excel med formel (5 sätt)
Nästa inlägg Hur du delar en cell i två rader i Excel (3 sätt)

Hugh West är en mycket erfaren Excel-tränare och analytiker med över 10 års erfarenhet i branschen. Han har en kandidatexamen i redovisning och ekonomi och en magisterexamen i företagsekonomi. Hugh har en passion för undervisning och har utvecklat ett unikt undervisningssätt som är lätt att följa och förstå. Hans expertkunskap om Excel har hjälpt tusentals studenter och yrkesverksamma över hela världen att förbättra sina färdigheter och utmärka sig i sina karriärer. Genom sin blogg delar Hugh med sig av sin kunskap med världen, och erbjuder gratis Excel-handledning och onlineutbildning för att hjälpa individer och företag att nå sin fulla potential.