一、在b2输入=if(a2<>a1,"插入",0)下拖填充公式。二、选中b列ctrl+g定位条件选“公式”仅勾选“文本”确定于是，标记为“插入”的格子被选中。三、在选中区击右键：插入，整行即可
用VBA可以。如果不想写程序，数据量不是太大的话，有个笨点的方法。分别选择想插入空行的地方（注意，按住ctrl，一行一行地选），然后插入空行效果：
