思路:
新建一个sheet,把表头和第二行先复制黏贴过来,然后从第三行开始遍历,每复制黏贴一行后再往下延N行,直至把原表数据完全复制完毕
1、辅助函数
Sub create_sheet(i As String)
'
' 宏3 宏
'
'
On Error GoTo 999
Sheets("新sheet").Select
Cells.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Exit Sub
999
Sheets.Add
ActiveSheet.Name = "新sheet"
End Sub
2、主要函数
Sub 自动添加行()
'
' 宏1 宏
'
'添加sheet
Call create_sheet(1)
'把表头复制黏贴
Sheets("导入模板").Select
Range("A1:F1").Select
Selection.Copy
Sheets("新sheet").Select
Range("A1").Select
ActiveSheet.Paste
'把除表头外的第一行复制黏贴
Sheets("导入模板").Select
Range("A2:F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("新sheet").Select
Range("A2:F2").Select
ActiveSheet.Paste
'开始遍历并复制黏贴
Dim i As Integer
For i = 3 To 469 '这里修改原始sheet的最大行
j = (i - 2) * 9 + 2 '这里修改每一行间插入几行,比如是8行,这边就填8+1=9
Sheets("导入模板").Select
Range("A" & i & ":F" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("新sheet").Select
Range("A" & j).Select
ActiveSheet.Paste
Next
End Sub