小太阳:
按Alt+F11,双击sheet1,输入以下代码:Sub隔行插入()Application.ScreenUpdating=FalseDimi%,j%,x%,y%x=500'间隔行数y=1'插入行数WithActiveSheetFori=1ToyForj=1To.[A65536].End(xlUp).Row+Int(.[A65536].End(xlUp).Row/(x+i-1))IfjMod(i+x)=0Then.Rows(j).InsertNextjNextiEndWithApp....