如何在Excel中以固定間隔插入特定數量的行？

在Excel工作表中，可以使用插入功能在現有行之間插入空白行。 但是，如果您有大量數據，并且需要在每第三個或第n行之后插入兩個空白行，那么如何快速便捷地完成此工作？

使用VBA代碼以固定的間隔將特定數量的空白行插入數據范圍使用VBA代碼根據單元格值將特定數量的空白行插入數據范圍使用方便的功能以固定的間隔將特定數量的空白行插入數據范圍使用VBA代碼根據特定編號多次復制和插入行具有特定功能，可根據特定數字多次復制和插入行 使用VBA代碼以固定的間隔將特定數量的空白行插入數據范圍

以下VBA代碼可以幫助您在現有數據中的第n行之后插入特定數量的行。 請執行以下操作：

1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊窗口.

VBA代碼：以固定的間隔將特定數量的行插入數據

Sub InsertRowsAtIntervals()Updateby ExtendofficeDim Rng As RangeDim xInterval As IntegerDim xRows As IntegerDim xRowsCount As IntegerDim xNum1 As IntegerDim xNum2 As IntegerDim WorkRng As RangeDim xWs As WorksheetxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)xRowsCount = WorkRng.Rows.CountxInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)xNum1 = WorkRng.Row + xIntervalxNum2 = xRows + xIntervalSet xWs = WorkRng.ParentFor i = 1 To Int(xRowsCount / xInterval)xWs.Range(xWs.Cells(xNum1, WorkRng.Column),

如果您不熟悉上述VBA代碼， Kutools for Excel 也可能對您有幫助 插入空白行和列 該功能可以按固定的間隔快速輕松地將特定數量的行或列插入現有數據。

請注意：申請這個 插入空白行和列 ，首先，您應該下載 Kutools for Excel，然后快速輕松地庂