프로그램 소개

 

엑셀에서 조건을 주어 해당 데이터는 자동으로 삭제할 수 있는 프로그램이다.

셀에서 홀수를 인식하여 해당 열은 삭제하기

 

50m체인으로 나뉘어진 데이터에서

100m마다의 홍수위를 추출하는 작업을 빠르게 해결하기위해 고안하였다.

분기문을 수정하면 짝수값에 해당하는 열을 삭제하는 등 다양한 활용이 가능하다.

 

source code

 

Sub row_DEL()

 

    Dim r As Range
    
    For Each r In Range([a1], [a65536].End(xlUp))

        If r Mod 2 Then r.EntireRow.Delete

    Next r

 

End Sub

 

16.11.13. 강승원