在工作表比方说sheet1上右键点击查看代码，出来vba窗口，输入代码，运行：Sub Insert() Dim i As Long For i = UsedRange.Rows.Count To 2 Step -1 Rows(i).Resize(5).Insert NextEnd Sub
