Přejít k hlavnímu obsahu

Jak vybrat každý druhý nebo n-tý řádek v aplikaci Excel?

Když někdy používáme list, musíme pro účely formátování, mazání nebo kopírování vybrat každý druhý nebo n-tý řádek listu. Můžete je vybrat ručně, ale pokud existují stovky řádků, tato metoda není dobrá volba. Zde je několik triků, které vám mohou pomoci.

Vyberte každý druhý nebo n-tý řádek pomocí VBA

Vyberte každý druhý nebo n-tý řádek pomocí Kutools pro Exceldobrý nápad3


Vyberte každý druhý nebo n-tý řádek pomocí VBA

V tomto příkladu vyberu jeden řádek se dvěma intervaly. S kódem VBA to mohu dokončit takto:

1. Zvýrazněte rozsah, ve kterém chcete vybrat každý druhý nebo n-tý řádek.

2.Click Vývojka > Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit > Modula do modulu zadejte následující kód:

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. Klepněte na doc-multiplikovat-výpočet-3 tlačítko pro spuštění kódu. Zobrazí se dialogové okno pro výběr rozsahu. Viz screenshot:



4. cvaknutí OK, a v tomto případě zadávám 3 v dalším vyskakovacím dialogu jako řádek intervalu. Viz snímek obrazovky

5. cvaknutí OKa byl vybrán každý třetí řádek. Viz screenshot:

Ve druhé můžete interval změnit podle potřeby Kutools pro Excel dialog.


Vyberte každý druhý nebo n-tý řádek pomocí Kutools pro Excel

S kódem VBA můžete vybrat pouze jeden řádek se zadanými intervaly, pokud potřebujete vybrat dva, tři nebo jiné řádky se zadanými intervaly, Kutools pro Excel vám pomůže tento problém snadno a pohodlně vyřešit.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools > Select > Select Interval Rows & Columns…, Viz screenshot:

doc vyberte každý druhý řádek8

2. V  Select Interval Rows & Columns v dialogovém okně klikněte nadoc-replace-range-names-7 vyberte požadovaný rozsah, zvolte Rows or Columns od Select sekcea zadejte požadované číslo do souboru Interval of vstupní pole a Rows vstupní pole. Viz screenshot:

doc vyberte každý druhý řádek9

doc vyberte každý druhý řádek10

Poznámky:
1. Pokud potřebujete vybrat každý druhý řádek ve výběru, zadejte 2 do pole Intervaly vstupu a 1 do Rows vstupní pole.

2. Pokud chcete vybrat celý řádek, který potřebujete, můžete zaškrtnout Select entire rows volba.
doc vyberte každý druhý řádek11


Stínujte každý druhý nebo n-tý řádek pomocí Kutools pro Excel

Pokud chcete zastínit rozsahy v každém druhém řádku, aby data vypadala lépe, jak je ukázáno níže, můžete použít Kutools pro ExcelJe Alternate Row/Column Shading funkce pro rychlé zvládnutí úlohy.

doc vyberte každý druhý řádek12
šipka dokumentu dolů
doc vyberte každý druhý řádek13

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte rozsah buněk, u kterých chcete nastavit odstín, klepněte na Kutools > Format > Alternate Row/Column Shading.
doc vyberte každý druhý řádek14

2. V Alternate Row/Column Shading dialog, postupujte takto:

1) Vyberte řádky nebo sloupce, které chcete stínovat;

2) Vyberte Conditional formatting or standardní formátování jak potřebujete;

3) Určete interval stínování;

4) Vyberte barvu stínování.
doc vyberte každý druhý řádek15

3. cvaknutí Ok. Nyní byl rozsah zastíněn v každém n-tom řádku.

Pokud chcete odstranit stínování, zaškrtněte políčko Odstraňte existující alternativní stínování řádků volba v Alternativní stínování řádků / sloupců dialog.


Související články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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