1、按Alt+F11打开VBA编辑器 2、插入-模块 3、复制以下代码到模块1 4、运行宏Test Sub test()Application.ScreenUpdating = False With Sheets("sheet1") '此处改为实际表名 r = .[A65536].End(xlUp).Row For i = r To 2 Step -1 .Rows(i & ":" & i + 2).Insert Next End With Application.ScreenUpdating = True End Sub