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: