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 그것을 나는이 '엑셀'과 'VBA를'태그를 추가