excel - VB - 插入空白行

Question

这对你们所有人来说都是小菜一碟，但我根本不懂 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展示了如何实现它的示例