Obejrzyj wideo - wstawiaj pusty wiersz po każdym wierszu w programie Excel
Osoby pracujące z dużymi zestawami danych często potrzebują prostych rzeczy, takich jak wstawianie/usuwanie wierszy lub kolumn.
Chociaż istnieje już wiele różnych (i prostych) sposobów dodawania wierszy w programie Excel, jeśli chodzi o wstawianie pustego wiersza po każdym innym wierszu (lub co trzecim lub czwartym), sprawy stają się nieco skomplikowane.
Wstaw pusty wiersz po każdym innym wierszu
W tym samouczku pokażę kilka naprawdę prostych sposobów wstawiania pustego wiersza po każdym wierszu w istniejącym zestawie danych (lub co n-tym wierszu).
Ponieważ nie ma bezpośredniego sposobu dodawania wierszy między wierszami, metoda opisana w tym artykule to obejście, które to umożliwia, a jeśli znasz się na VBA, możesz to zrobić jednym kliknięciem.
Korzystanie z kolumny pomocy i funkcji sortowania
Załóżmy, że masz zestaw danych, jak pokazano poniżej, i chcesz wstawić puste miejsce między istniejącymi wierszami.
Poniżej znajdują się kroki, aby wstawić puste wiersze między istniejącymi wierszami:
- Wstaw pustą kolumnę po lewej stronie zestawu danych. Aby to zrobić, kliknij prawym przyciskiem myszy nagłówek kolumny znajdującej się najbardziej po lewej stronie i kliknij Wstaw.
- Wpisz tekst „HelperColumn” w A1 (możesz użyć dowolnego tekstu)
- Wprowadź 1 w komórce A2 i 2 w komórce A3.
- Zaznacz obie komórki i umieść kursor w prawym dolnym rogu zaznaczenia. Gdy kursor zmieni się w ikonę plusa, kliknij go dwukrotnie. Spowoduje to wypełnienie całej kolumny rosnącymi liczbami
- Przejdź do ostatniej wypełnionej komórki w kolumnie pomocniczej, a następnie wybierz komórkę pod nią.
- Wpisz 1 w tej komórce i 2 w komórce poniżej
- Zaznacz obie komórki i umieść kursor w prawym dolnym rogu zaznaczenia.
- Gdy kursor zmieni się w ikonę plusa, kliknij i przeciągnij go w dół. Wypełni to serię liczb (tak jak w kroku 3). Upewnij się, że otrzymujesz więcej liczb niż masz w zbiorze danych. Na przykład, jeśli w zestawie danych jest 10 rekordów, upewnij się, że w tym kroku wypełniono co najmniej 10 komórek. Po zakończeniu zestaw danych będzie wyglądał tak, jak pokazano poniżej.
- Wybierz cały zestaw danych (w tym wszystkie komórki w kolumnie pomocniczej).
- Kliknij kartę Dane
- Kliknij opcję Sortuj
- W oknie dialogowym Sortuj użyj następujących ustawień:
- Sortuj według: Pomocnik
- Sortuj według: Wartość komórki
- Zamówienie: od najmniejszego do największego
- Kliknij OK. W ten sposób otrzymasz zestaw danych, jak pokazano poniżej.
- Usuń kolumnę pomocnika.
Zauważysz, że gdy tylko klikniesz OK w oknie dialogowym Sortuj, natychmiast zmieni kolejność wierszy, a teraz po każdym wierszu zestawu danych pojawi się pusty wiersz.
W rzeczywistości nie jest to wstawienie pustego wiersza. Ta metoda sortowania polega po prostu na przeorganizowaniu danych przez umieszczenie pustych wierszy poniżej zestawu danych między wierszami w zestawie danych.
Możesz również rozszerzyć tę samą logikę na wstaw pusty wiersz co dwa rzędy lub co trzy rzędy.
Załóżmy, że masz zestaw danych, jak pokazano poniżej i chcesz uzyskać pusty wiersz po każdych dwóch wierszach.
Poniżej znajdują się kroki, aby to zrobić:
- Wstaw pustą kolumnę po lewej stronie zestawu danych. Aby to zrobić, kliknij prawym przyciskiem myszy nagłówek kolumny znajdującej się najbardziej po lewej stronie i kliknij Wstaw.
- Wpisz tekst „HelperColumn” w A1 (możesz użyć dowolnego tekstu)
- Wprowadź 1 w komórce A2 i 2 w komórce A3.
- Zaznacz obie komórki i umieść kursor w prawym dolnym rogu zaznaczenia. Gdy kursor zmieni się w ikonę plusa, kliknij go dwukrotnie. Spowoduje to wypełnienie całej kolumny rosnącymi liczbami
- Przejdź do ostatniej wypełnionej komórki w kolumnie pomocniczej, a następnie wybierz komórkę pod nią.
- Wpisz 2 w tej komórce i 4 w komórce poniżej. Używamy liczb wielokrotności 2, ponieważ chcemy, aby jeden pusty wiersz po każdych dwóch wierszach.
- Zaznacz obie komórki i umieść kursor w prawym dolnym rogu zaznaczenia.
- Gdy kursor zmieni się w ikonę plusa, kliknij i przeciągnij go w dół. Wypełni to serię liczb (tak jak w kroku 3). Upewnij się, że otrzymujesz liczbę większą niż ta, którą masz w zbiorze danych. Na przykład, jeśli w zbiorze danych jest 10 rekordów, upewnij się, że otrzymujesz co najmniej do liczby 10.
- Wybierz cały zestaw danych (w tym wszystkie komórki w kolumnie pomocniczej).
- Kliknij kartę Dane
- Kliknij opcję Sortuj
- W oknie dialogowym Sortuj użyj następujących ustawień:
- Sortuj według: Pomocnik
- Sortuj według: Wartość komórki
- Zamówienie: od najmniejszego do największego
- Kliknij OK. To da ci ostateczny zestaw danych, jak pokazano poniżej (z pustym wierszem po co drugim wierszu zestawu danych)
- Usuń kolumnę pomocnika.
Podobnie, jeśli chcesz wstawić pusty wiersz po co trzecim wierszu, użyj liczby 3, 6, 9 itd. w kroku 5.
Korzystanie z prostego kodu VBA
Chociaż potrzebujesz wielu obejść, aby wstawić alternatywne puste wiersze w programie Excel, z VBA to wszystko bułka z masłem.
Za pomocą prostego kodu VBA wszystko, co musisz zrobić, to wybrać zestaw danych, w którym chcesz wstawić pusty wiersz po każdym wierszu, i po prostu uruchomić kod (wystarczy jedno kliknięcie).
Poniżej znajduje się kod VBA, który wstawi pusty wiersz po każdym wierszu w zestawie danych:
Sub InsertAlternateRows() 'Ten kod wstawi wiersz po każdym wierszu w zaznaczeniu 'Ten kod został utworzony przez Sumit Bansal z trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Wybór CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset(1, 0).EntireRow.Insert ActiveCell.Offset(2, 0).Wybierz Next i End Sub
Powyższy kod zlicza całkowitą liczbę wierszy w zaznaczeniu i używa pętli For Next do przechodzenia przez każdy wiersz i wstawiania pustego wiersza po każdym istniejącym wierszu w zestawie danych.
Oto kroki, aby umieścić ten kod VBA w edytorze VB w programie Excel:
- Skopiuj powyższy kod
- Przejdź do zakładki Deweloper i kliknij opcję Visual Basic. Spowoduje to otwarcie edytora VB. Możesz także użyć skrótu klawiaturowego ALT + F11
- W Edytorze VB kliknij prawym przyciskiem myszy dowolny obiekt w Eksploratorze projektów
- Najedź kursorem na opcję Wstaw, a następnie kliknij Moduł. Spowoduje to wstawienie nowego modułu
- W oknie Kod modułu wklej powyższy kod.
Gdy masz już kod w edytorze VB, możesz teraz użyć tego kodu, aby wstawić puste wiersze po każdym innym wierszu w zestawie danych.
Oto kroki, aby użyć kodu do wstawiania pustych wierszy po każdym wierszu:
- Wybierz cały zbiór danych (oprócz wiersza nagłówka)
- Kliknij kartę Deweloper (jeśli nie masz karty Deweloper, kliknij tutaj, aby dowiedzieć się, jak ją zdobyć)
- Kliknij opcję „Makra”
- W oknie dialogowym Makro wybierz makro - „InsertAlternateRows”
- Kliknij Uruchom
Otóż to!
Powyższe kroki natychmiast wstawią naprzemienne puste wiersze do zestawu danych.
Istnieje wiele różnych sposobów uruchamiania makra w programie Excel. Na przykład, jeśli musisz to robić dość często, możesz dodać to makro do paska narzędzi Szybki dostęp, aby można było je uruchomić jednym kliknięciem.
Możesz przeczytać więcej o różnych sposobach uruchamiania makr tutaj.
Jeśli chcesz wstawić pusty wiersz po co drugim wierszu, możesz użyć poniższego kodu:
Sub InsertBlankRowAfterEvery2ndRow() 'Ten kod wstawi wiersz po co drugim wierszu w zaznaczeniu 'Ten kod został utworzony przez Sumit Bansal z trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Wybór CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset(2, 0).EntireRow.Insert ActiveCell.Offset(3, 0).Wybierz Next i End Sub
Mam nadzieję, że ten samouczek okazał się przydatny.