Jeśli chcesz mieć sposób na usunięcie wszystkich podobnych numerów wierszy za jednym razem, ten artykuł jest dla Ciebie.
W tym artykule dowiemy się, w jaki sposób możemy pozbyć się tego samego wiersza w wielu arkuszach roboczych za pomocą makr.
Pytanie): Chcę usunąć ten sam wiersz w wielu arkuszach roboczych za pomocą kodu VBA. To, czego chcę, to kod usuwający wszystkie wiersze ze skoroszytu, niezależnie od tego, ile arkuszy znajduje się w bieżącym pliku; Chcę usunąć wybrany numer wiersza ze wszystkich 5 arkuszy.
Przede wszystkim wprowadźmy podobne dane we wszystkich arkuszach w tej samej lokalizacji
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Wprowadź następujący kod w standardowym module:-
Sub UsuńWiersze()
Dim shtArr, i tak długo, xx tak długo
shtArr = Array("Arkusz1", "Arkusz2", "Arkusz3", "Arkusz4", "Arkusz5")
xx = Wybór.Wiersz
For i = LBound(shtArr) To UBound(shtArr)
Arkusze(shtArr(i)).Wiersze(xx).Cały wiersz.Usuń
Dalej ja
Napis końcowy
- Teraz umieść kursor na dowolnej komórce A1 i na Arkuszu1.
- naciskać ALT + F8 uruchomić makro; zauważysz, że wybrany numer wiersza zostanie usunięty we wszystkich arkuszach.
- Poniższa migawka pokazuje dane z arkuszy 1 i 2 jako przykład; kiedy wykonasz to ćwiczenie, znajdziesz podobne rozwiązanie we wszystkich odpowiednich arkuszach.
- Jeśli umieścimy kursor na dowolnej komórce A2 i na Arkuszu2, również wynik byłby podobny.
W takim przypadku możemy usunąć podobny numer wiersza za pomocą kodu VBA.
Pobierz- Przykładowy plik- xlsm
