한 행씩 건너 뛰면서 행을 삭제하는 기능

http://blog.naver.com/rosa0189?Redirect=Log&logNo=60137018268

 

 

 

동영상에 사용된 예제 코드 :

Option Explicit

Sub delete_Every_Other()

Dim rngAll As Range
Dim lastRow As Long
Dim r As Long

Application.ScreenUpdating = False

lastRow = Cells(Rows.Count, 1).End(3).Row
For r = lastRow To 2 Step -2
Cells(r, 1).Resize(1, 2).EntireRow.Delete
Next r

End Sub

[출처] (426) 엑셀 매크로 사용법 기본 1 (엑셀 VBA 매크로 동영상)|작성자 니꾸