Jak zapętlić arkusze w programie Excel za pomocą VBA

Automatyzując zwykłe nudne zadania programu Excel w VBA, będziesz musiał przeglądać każdy arkusz. I właśnie dlatego tu jesteś, oczywiście.

Zobaczmy kod do przeglądania arkuszy w skoroszycie.

Kod VBA do pętli we wszystkich arkuszach w Activeworkbook i arkusze drukowania Nazwa

Sub loopSheets() Dla każdego ws In ActiveWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub

Powyższy kod vba przechodzi przez każdy arkusz w aktywnym skoroszycie i drukuje nazwę arkusza

Jak to działa?

To całkiem proste. Mówimy VBA, aby przechowywał każdy arkusz roboczy w aktywnym skoroszycie w ws, a następnie wydrukował jego nazwę za pomocą metody nazw.

Zapętlaj wszystkie arkusze z wyjątkiem jednego

Tak więc, jeśli próbujesz scalić wiele arkuszy w jednym arkuszu głównym, będziesz musiał przejść przez każdy arkusz. skopiuj dane każdego arkusza w arkuszu głównym. Ale chciałbyś, aby arkusz główny nie był zapętlony. Załóżmy, że nazwałeś arkusz wzorcowy jako „Master”. W takim przypadku użyj tej metody:

Sub loopSheets() Dla każdego ws In ActiveWorkbook.Worksheets Jeśli ws.Name "Master" Then Debug.Print ws.Name & "Copied" End If Next ws End Sub

Jest prawie taki sam jak w powyższym kodzie, z dodatkiem jedynie instrukcji If.

Jeśli ws.Nazwa „Mistrz” Wtedy

Ten wiersz sprawdza, czy nazwa bieżącego arkusza roboczego to „Master” . jeśli tak nie jest, kod pomiędzy if blokiem działa. W przeciwnym razie kod wewnątrz, jeśli blok zostanie pominięty.

Więc tak, w ten sposób można przeglądać arkusze w programie Excel. Następnie dowiemy się, jak skonsolidować wiele arkuszy w jeden za pomocą vba.