Przejdź do głównej zawartości

Jak wybrać co drugi lub n-ty wiersz w programie Excel?

Kiedy używamy arkusza roboczego, czasami musimy wybrać co drugi lub n-ty wiersz arkusza do formatowania, usuwania lub kopiowania. Możesz wybrać je ręcznie, ale jeśli są setki wierszy, ta metoda nie jest dobrym wyborem. Oto kilka wskazówek, które mogą Ci pomóc.

Wybierz co drugi lub n-ty wiersz za pomocą VBA

Wybierz co drugi lub n-ty wiersz za pomocą Kutools for Exceldobry pomysł 3


Wybierz co drugi lub n-ty wiersz za pomocą VBA

W tym przykładzie wybiorę jeden wiersz z dwoma interwałami. Z kodem VBA mogę to zakończyć w następujący sposób:

1. Podświetl zakres, który chcesz zaznaczyć co drugi lub n-ty wiersz.

2.Click Deweloper > Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:

Sub EveryOtherRow()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3. Następnie kliknij doc-pomnóż-obliczenie-3 przycisk, aby uruchomić kod. Pojawi się okno dialogowe, w którym możesz wybrać zakres. Zobacz zrzut ekranu:



4. kliknij OKiw tym przypadku wpisuję 3 w innym wyskakującym oknie dialogowym jako wiersz interwału. Zobacz zrzut ekranu

5. kliknij OKi co trzeci wiersz został wybrany. Zobacz zrzut ekranu:

Możesz zmienić interwał w zależności od potrzeb w ciągu sekundy Kutools dla programu Excel dialog.


Wybierz co drugi lub n-ty wiersz za pomocą Kutools for Excel

Za pomocą kodu VBA możesz wybrać tylko jeden wiersz z określonymi interwałami, jeśli chcesz wybrać dwa, trzy lub inne wiersze z określonymi interwałami, Kutools dla programu Excel może pomóc w łatwym i wygodnym rozwiązaniu tego problemu.

Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. 

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. kliknij Kutools > Select > Select Interval Rows & Columns… Patrz zrzut ekranu:

doc wybierz co drugi wiersz 8

2. w  Select Interval Rows & Columns w oknie dialogowym, kliknijnazwy-zakresów-wymiany-dokumentów-7 aby wybrać żądany zakres, wybierz Rows or Columns od Select Sekcjai określ liczbę, którą chcesz umieścić w pliku Interval of pole wprowadzania i Rows pole wprowadzania. Zobacz zrzut ekranu:

doc wybierz co drugi wiersz 9

doc wybierz co drugi wiersz 10

Uwagi:
1. Jeśli chcesz zaznaczyć co drugi wiersz w zaznaczeniu, wprowadź 2 w polu Intervals of Input i 1 w Rows pole wprowadzania.

2. Jeśli chcesz zaznaczyć cały potrzebny wiersz, możesz zaznaczyć Select entire rows opcja.
doc wybierz co drugi wiersz 11


Zacieniuj co drugi wiersz lub n-ty wiersz za pomocą Kutools for Excel

Jeśli chcesz zacienić zakresy w co drugim wierszu, aby dane wyglądały lepiej, jak pokazano na zrzucie ekranu, możesz zastosować Kutools dla programu Excel'S Alternate Row/Column Shading funkcja, aby szybko wykonać zadanie.

doc wybierz co drugi wiersz 12
strzałka doc w dół
doc wybierz co drugi wiersz 13

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Wybierz zakres komórek, w których chcesz zastosować cienie, kliknij Kutools > Format > Alternate Row/Column Shading.
doc wybierz co drugi wiersz 14

2. w Alternate Row/Column Shading okno dialogowe, wykonaj następujące czynności:

1) Wybierz wiersze lub kolumny, które chcesz zacienić;

2) Wybierz Conditional formatting or standardowe formatowanie tak jak potrzebujesz;

3) Określ interwał cieniowania;

4) Wybierz kolor cieniowania.
doc wybierz co drugi wiersz 15

3. kliknij Ok. Teraz zakres został zacieniowany w każdym n-tym rzędzie.

Jeśli chcesz usunąć cieniowanie, zaznacz Usuń istniejące cieniowanie alternatywnych wierszy opcja w Alternatywne cieniowanie wierszy / kolumn dialog.


Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
This comment was minimized by the moderator on the site
Also I don't get how "Set" and "Step" could ever work together
This comment was minimized by the moderator on the site
Not sure that I will be able to help, but.. First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module. Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
This comment was minimized by the moderator on the site
Replace OutRng.EntireRow.Select with Intersect(OutRng.EntireRow, InputRng).Select if you want every other row within your selection
This comment was minimized by the moderator on the site
really good, thanks!
This comment was minimized by the moderator on the site
The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row? I don't need all the information in each row. Just certain cells of each nth row.
This comment was minimized by the moderator on the site
I made the modifications below to select 30 rows Sub EveryOtherRow() Dim rng As Range Dim InputRng As Range Dim OutRng As Range Dim xInterval As Integer xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row End Sub
This comment was minimized by the moderator on the site
Nice, thanks, this was very helpful ^_^
This comment was minimized by the moderator on the site
fanatastic. thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
This comment was minimized by the moderator on the site
I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
This comment was minimized by the moderator on the site
Just saved my ass with this code thanks! My matlab decided to randomly stop working and so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.
This comment was minimized by the moderator on the site
I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible 
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations