Hur man går igenom ark i Excel med VBA

Medan du automatiserar de vanliga tråkiga uppgifterna för excel i VBA, kommer du att behöva bläddra igenom varje ark. Och det är därför du är här, naturligtvis.

Låt oss se koden för att bläddra igenom ark i en arbetsbok.

VBA Code To Loop in all sheets in Activeworkbook and print sheets Name

Sub loopSheets () för varje ws i ActiveWorkbook.Worksheets Debug.Print ws.Name Nästa ws End Sub

Ovanstående vba -kod, går igenom varje ark i aktiv arbetsbok och skriver ut bladnamnet

Hur det fungerar?

Det är ganska enkelt. Vi säger åt VBA att lagra varje kalkylblad i aktiv arbetsbok i ws och sedan skriva ut dess namn med hjälp av namnmetod.

Slinga igenom alla ark utom ett

Så om du försöker slå samman flera ark i ett huvudark måste du gå igenom varje ark. kopiera varje arkdata till huvudark. Men du skulle vilja undanta huvudarket från looping. Låt oss säga att du kallade huvudarket som "Master". Använd i så fall den här metoden:

Sub loopSheets () för varje ws i ActiveWorkbook.Worksheets If ws.Name "Master" Sedan Debug.Print ws.Name & "Kopierat" End If Next ws End Sub

Det är nästan samma som ovanstående kod, med endast tillägg av If -sats.

Om ws.Name "Master" Då

Denna rad kontrollerar om det aktuella kalkylbladets namn är "Master". om det inte är det, koden mellan om blocket körs. Annars koden inom om blocket hoppas över.

Så ja killar, så här kan du bläddra igenom kalkylblad i excel. Därefter lär vi oss att konsolidera flera ark till ett med vba.