用VBA，过程如下：
ALT+F11，写入如下代码：
sub insertblank() dim i as integer for i=1 to 200 rows(i).insert shift:=xlup next iend sub
点击图片中的红圈处运行。
复制10个空行，插入粘贴20次就可以了
