Hvordan sette inn bestemt antall rader med faste intervaller i

The Excel? Følgende VBA-kode kan hjelpe deg med å sette inn et bestemt antall rader etter hver n'te rad innenfor eksisterende data. Gjør følgende:
1. Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sett bestemt antall rader inn data ved faste intervaller
Sub InsertRowsAtIntervals () 'Updateby20150707Dim RNG Som RangeDim xInterval Som IntegerDim xRows Som IntegerDim xRowsCount Som IntegerDim xNum1 Som IntegerDim xNum2 som IntegerDim WorkRng som RangeDim xWs som WorksheetxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) xRowsCount = WorkRng.Rows.CountxInterval = Application.InputBox ("Skriv rad intervall.", xTitleId, 1, Type: = 1) xRows = Application.InputBox ("Hvor mange rader for å sette inn ved hvert intervall", xTitleId, 1, Type: = 1) xNum1 = WorkRng .Row + xIntervalxNum2 = xRows + xIntervalSet xWs = WorkRng.ParentFor i = 1 Til Int (xRowsCount /xInterval) xWs.Range (xWs.Cells (xNum1, WorkRng.Column), xWs.Cells (xNum1 + xRows - 1, WorkRng. kolonne)). Velg Application.Selection.EntireRow.Insert xNum1 = xNum1 + xNum2NextEnd Sub3. Når du har limt inn denne koden, trykk F5 for å kjøre denne koden, en rask boks vil komme ut til å forbli du velge dataområdet som du vil sette inn tom rad, se skjermbilde:
4. Klikk på OK-knappen, vil en annen rask boks sprette ut, vennligst skriv antall rad intervaller, se skjermbilde:
5. Gå på å klikke OK, i følgende spratt ut teksten boksen, kan du angi hvor mange tomme rader som du ønsker å sette inn, se skjermbilde:
6. Klikk deretter på OK, og de tomme rader er satt inn i eksisterende data på et jevne mellomrom, se skjermbilde:

Sett bestemt antall rader inn data ved faste intervaller med Kutools for Excel
Hvis du ikke er kjent med oven VBA-kode, Kutools for Excel også kan hjelpe deg, dets sette inn blanke rader og amp; Kolonner har kan sette bestemt antall rader eller kolonner i eksisterende data til faste intervaller raskt og enkelt
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå. Etter å ha installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
en. Velg dataområdet som du vil sette inn blanke rader med mellomrom.
2. Klikk Kutools > Sett > Sett Blank rader og amp; Kolonner, se skjermbilde:
tre. I Insert Blank Row & Kolonner dialogboksen velger Blanke rader eller Blanke kolonner du trenger, fra Sett type, og deretter angi antall intervall og tomme rader som du ønsker å bruke som følgende skjermbilde vises:
4. Klikk deretter på OK-knappen, og de tomme rader er satt inn i det valgte området på et bestemt intervall som følgende skjermbilde vises:
Klikk for å vite mer om dette Insert Blank Row & Kolonner verktøyet.
Gratis nedlasting Kutools for Excel Nå