思路：

新建一个sheet，把表头和第二行先复制黏贴过来，然后从第三行开始遍历，每复制黏贴一行后再往下延N行，直至把原表数据完全复制完毕

1、辅助函数

Sub create_sheet(i As String)
'
' 宏3 宏
''On Error GoTo 999Sheets("新sheet").SelectCells.SelectApplication.CutCopyMode = FalseSelection.Delete Shift:=xlUpExit Sub
999Sheets.AddActiveSheet.Name = "新sheet"End Sub

2、主要函数

Sub 自动添加行()
'
' 宏1 宏
''添加sheetCall create_sheet(1)'把表头复制黏贴Sheets("导入模板").SelectRange("A1:F1").SelectSelection.CopySheets("新sheet").SelectRange("A1").SelectActiveSheet.Paste'把除表头外的第一行复制黏贴Sheets("导入模板").SelectRange("A2:F2").SelectApplication.CutCopyMode = FalseSelection.CopySheets("新sheet").SelectRange("A2:F2").SelectActiveSheet.Paste'开始遍历并复制黏贴Dim i As IntegerFor i = 3 To 469  '这里修改原始sheet的最大行j = (i - 2) * 9 + 2 '这里修改每一行间插入几行，比如是8行，这边就填8+1=9Sheets("导入模板").SelectRange("A" & i & ":F" & i).SelectApplication.CutCopyMode = FalseSelection.CopySheets("新sheet").SelectRange("A" & j).SelectActiveSheet.PasteNextEnd Sub