Gå til hovedindhold

Hvordan vælges hver anden eller niende række i Excel?

Når vi bruger et regneark, er vi nogle gange nødt til at vælge hver anden eller niende række på arket til formatering, sletning eller kopiering. Du kan vælge dem manuelt, men hvis der er hundredvis af rækker, er denne metode ikke et godt valg. Her er nogle tricks, der kan hjælpe dig.

Vælg hver anden eller niende række med VBA

Vælg hver anden eller niende række med Kutools til Excelgod idé3


Vælg hver anden eller niende række med VBA

I dette eksempel vælger jeg en række med to intervaller. Med VBA-kode kan jeg afslutte det som følger:

1. Fremhæv det område, som du vil vælge hver anden eller niende række.

2.Click Udvikler > Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Moduler, og indtast følgende kode i modulet:

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. Klik derefter på doc-multiplicere-beregning-3 knappen for at køre koden. Og en dialog vises, hvor du kan vælge et interval. Se skærmbillede:



4. klik OK, og i dette tilfælde indtaster jeg 3 i en anden pop-out-dialog som intervalrækken. Se skærmbillede

5. klik OK, og hver tredje række er valgt. Se skærmbillede:

Du kan ændre intervallet, som du har brug for i det andet KutoolsforExcel dialogen.


Vælg hver anden eller niende række med Kutools til Excel

Med VBA-kode kan du kun vælge en række med angivne intervaller, hvis du har brug for at vælge to, tre eller andre rækker med angivne intervaller, Kutools til Excel kan hjælpe dig med at løse dette problem nemt og bekvemt.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. klik Kutools > Select > Select Interval Rows & Columns…, Se skærmbillede:

doc vælg hver anden række8

2. i  Select Interval Rows & Columns Klik på dialogboksendoc-erstat-rækkevidde-navne-7 for at vælge det ønskede område, vælg Rows or Columns fra Select sektion, og angiv det ønskede nummer i Interval of inputboks og Rows inputboks. Se skærmbillede:

doc vælg hver anden række9

doc vælg hver anden række10

Bemærkninger:
1. Hvis du har brug for at vælge hver anden række i markeringen, skal du indtaste 2 i feltet Intervaller for input og 1 i feltet Rows input boks.

2. Hvis du vil vælge hele den række, du har brug for, kan du kontrollere Select entire rows valgmulighed.
doc vælg hver anden række11


Skygge hver anden række eller niende række med Kutools til Excel

Hvis du vil skygge områder i hver anden række, så dataene ser mere fremragende ud som vist nedenfor, kan du anvende Kutools til Excel's Alternate Row/Column Shading funktion til hurtigt at håndtere jobbet.

doc vælg hver anden række12
dok pil ned
doc vælg hver anden række13

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Vælg det celleområde, du vil intervalskygge, klik på Kutools > Format > Alternate Row/Column Shading.
doc vælg hver anden række14

2. i Alternate Row/Column Shading dialog, gør som disse:

1) Vælg de rækker eller kolonner, du vil skygge;

2) Vælg Conditional formatting or standardformatering som du har brug for;

3) Angiv skyggeinterval;

4) Vælg en skygge farve.
doc vælg hver anden række15

3. klik Ok. Nu er rækkevidden blevet skyggefuld i hver nende række.

Hvis du vil fjerne skyggen, skal du kontrollere Fjern eksisterende alternativ rækkeskygge indstilling i Alternativ række / kolonneskygge dialogen.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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