Note: The other languages of the website are Google-translated. Back to English

Hur väljer jag varannan eller nionde rad i Excel?

När vi använder ett kalkylblad måste vi ibland välja varannan eller nionde raden i arket för formatering, radering eller kopiering. Du kan välja dem manuellt, men om det finns hundratals rader är den här metoden inte ett bra val. Här är några knep som hjälper dig.

Välj varannan eller nionde rad med VBA

Välj varannan eller nionde rad med Kutools för Excelbra idé3


Välj varannan eller nionde rad med VBA

I det här exemplet väljer jag en rad med två intervall. Med VBA-kod kan jag avsluta den enligt följande:

1. Markera det intervall som du vill välja varannan eller nionde raden.

2.Click Utvecklare > Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulernaoch mata in följande kod i modulen:

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. Klicka sedan på doc-multiplicera-beräkning-3 för att köra koden. Och en dialog dyker upp för dig att välja ett intervall. Se skärmdump:



4. klick OK, och i det här fallet matar jag in 3 i en annan popup-dialog som intervallraden. Se skärmdump

5. klick OK, och var tredje rad har valts. Se skärmdump:

Du kan ändra intervallet som du behöver i det andra KutoolsforExcel dialog.


Välj varannan eller nionde rad med Kutools för Excel

Med VBA-kod kan du bara välja en rad med angivna intervall, om du behöver välja två, tre eller andra rader med angivna intervall, Kutools för Excel kan hjälpa dig att lösa detta problem enkelt och bekvämt.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

Efter gratis installation Kutools för Excel, gör så här:

1. klick Kutools > Select > Select Interval Rows & Columns..., se skärmdump:

doc välj varannan rad8

2. I  Select Interval Rows & Columns Klicka på dialogrutandoc-ersätt-intervall-namn-7 för att välja det intervall du behöver, välj Rows or Columns från Select avsnittoch ange numret du vill ha i Interval of inmatningsruta och Rows inmatningslåda. Se skärmdump:

doc välj varannan rad9

doc välj varannan rad10

Anmärkningar:
1. Om du behöver välja varannan rad i valet, ange 2 i rutan Inmatningsintervall och 1 i rutan Rows inmatningslåda.

2. Om du vill välja hela raden du behöver kan du kontrollera Select entire rows alternativ.
doc välj varannan rad11


Skugga varannan rad eller nionde rad med Kutools för Excel

Om du vill skugga intervall i varannan rad så att uppgifterna ser mer enastående ut som skärmdumpen nedan kan du ansöka Kutools för ExcelÄr Alternate Row/Column Shading funktion för att snabbt hantera jobbet.

doc välj varannan rad12
doc pil ner
doc välj varannan rad13

Efter gratis installation Kutools för Excel, gör så här:

1. Välj det cellintervall som du vill intervallskugga, klicka på Kutools > Format > Alternate Row/Column Shading.
doc välj varannan rad14

2. I Alternate Row/Column Shading dialogruta, gör så här:

1) Välj de rader eller kolumner du vill skugga;

2) Välj Conditional formatting or standardformatering som du behöver;

3) Ange skuggningsintervall;

4) Välj en skuggfärg.
doc välj varannan rad15

3. klick Ok. Nu har intervallet skuggats i varje nionde rad.

Kontrollera om du vill ta bort skuggningen Ta bort befintlig alternativ radskuggning alternativet i Alternativ rad- / kolumnskuggning dialog.


Relaterade artiklar:


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (12)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag räddade precis min röv med den här koden tack! Mitt matlab bestämde sig för att slumpmässigt sluta fungera och så jag var tvungen att ta till excel som jag inte är lika bekant med som med Matlab. Denna def. hjälpte. Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag måste välja flera rader och ett fast intervall och flytta till det andra bladet vänligen svara mig så snart som möjligt 
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker använda VBA-makrot i Excel 2010. Det kommer bara att välja den första n:e raden, inte alla i urvalet. Om jag kör det igen går det till nästa. Någon aning om vad jag gör för fel? Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
fanatisk. tack så mycket.det fungerar perfekt.Jag har mer än 7000 data som behöver välja dem med olika intervall.Detta trick var som ett mirakel för mig.thaaaaaaaanks.
Denna kommentar minimerades av moderatoren på webbplatsen
Koden har en begäran. Måste den välja HELA RADEN för varje n:te rad? Kan det inte bara välja vissa celler (cellintervall) inom varje n:te rad? Jag behöver inte all information på varje rad. Bara vissa celler i varje n:e rad.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag gjorde ändringarna nedan för att välja 30 rader 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, Typ:=8) xInterval = Application.InputBox("Ange radintervall", xTitleId, Typ:=1) För i = 1 Till InputRng.Rows.Count Steg xInterval + 1 Set rng = InputRng .Cells(i, 1).Resize(, 30) 'Ändra storlek till antalet kolumner att välja, 30 i detta fall If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Nästa OutRng.Select 'Use OutRng.EntireRow.Select för att välja hela raden End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Trevligt, tack, detta var till stor hjälp ^_^
Denna kommentar minimerades av moderatoren på webbplatsen
riktigt bra, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Ersätt OutRng.EntireRow.Select med Intersect(OutRng.EntireRow, InputRng). Välj om du vill ha varannan rad i ditt val
Denna kommentar minimerades av moderatoren på webbplatsen
Hjälp snälla. Det här ser bra ut, MEN när jag trycker på > Kör-knappen misslyckas det med ett "Compile error: Sub or Function not defined" och koden stannade vid "Set rng = InputRng.Rows.Count Step xInterval +1".
Denna kommentar minimerades av moderatoren på webbplatsen
Inte säker på att jag kommer att kunna hjälpa, men .. För det första finns det ett mellanrum mellan "C" och "antal" i "Räkna" när jag kopierade din kodsträng till en modul. För det andra, jag kan inte hitta din kod någon annanstans på den här sidan, skicka in hela om problemet kvarstår.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag förstår inte heller hur "Set" och "Step" någonsin skulle kunna fungera tillsammans
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL