Question

EXCEL中怎么用宏隔行插入多行，并复制头一行

就是下面的各行都要像上面的张三，李四那样排成七天的形式。。
我看下面这个代码能自动插入行，但不知怎么写自动复制头一行。不胜感激！！

按ALT+F11打开后双击左侧ThisWorkBook打开编辑器把下面的代码贴进去。Sub XXX()xx = InputBox("请输入需要插入的行数：", "提示")Application.ScreenUpdating = FalseEndRow = Range("A65536").End(xlUp).RowFor i = 1 To EndRow Rows(i + 1 + (i - 1) * xx).Select For j = 1 To xx Selection.Insert Shift:=xlDown NextNextApplication.ScreenUpdating = TrueEnd Sub

Answer 1

Sub XXX()
xx = InputBox("请输入需要插入的行数：", "提示")
If xx = "" Then Exit Sub
Application.ScreenUpdating = False
EndRow = Range("A65536").End(xlUp).Row
For i = 1 To EndRow
    N = i + 2 + (i - 1) * xx
    Rows(N).Select
    For j = 1 To xx
        Selection.Insert Shift:=xlDown
    Next
    If N > 2 Then Rows(1).Copy Selection.Offset(-2, 0)
Next
Application.ScreenUpdating = True
End Sub