VB – 插入一个空行

这是你们所有人的小孩戏，但是我根本不了解Visual Basic。 如何编写一条语句，在Excel电子表格中的两行之间重复插入一行？ 下面是一个例子：

F-3757 - GROF FILTER REWORKLIJN F-3758 - POEDERAFSCHEIDER F-3759 - FIJNFILTER F-3760 - STOFILTER F-3762 - AANZUIGFILTER B-3771 - VENTILATOR STORTKOKER 

至：

 F-3758 - POEDERAFSCHEIDER F-3759 - FIJNFILTER F-3760 - STOFILTER F-3762 - AANZUIGFILTER B-3771 - VENTILATOR STORTKOKER 

Answer 1

 Sub Insert_Blank_Rows() ''//Select last row in worksheet. Selection.End(xlDown).Select Do Until ActiveCell.Row = 1 ''//Insert blank row. ActiveCell.EntireRow.Insert shift:=xlDown ''//Move up one row. ActiveCell.Offset(-1, 0).Select Loop End Sub 

VBA Express展示了一个如何实现它的例子