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