录制一个宏,录制方法,选中a1单元格,打开录制宏按钮,将使用相对引用按钮关闭,选中第七行插入一行,然后在选中插入行的下一个单元格停止录制录制宏。然后执行宏。 ActiveCell.Offset(6, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(1, 0).Range("A1").Select End Sub