2017년 6월 30일 금요일

엑셀에서 보면 쓸데없이 행이 많은 경우가 있다. 이를 삭제 하려고 봤더니 excel 2013 에서는 쓸데없는 행을 정리해 주는 항목이 있다고 한다. 그런데 2016를 사용하는 나에게는 그런게 전혀 보이지 않는다.

Imgur

위와 같은 상황에서 행을 분리하고 909행에 데이터를 남기고 910~915행을 삭제하는 방법이다.

수동으로

수동으로 하는 방법은 행을 분리->나머지 행을 삭제하는 방법이다.

Imgur

이렇게 행을 드레그 해서 선택하고

Imgur

[홈] - [병합하고 가운데 맞춤]을 사용해서 분리한다.ㅇ

그리고 [마우스 오른쪽클릭] - [삭제] 를 누르는 방법이다.

매크로

ALT+F11로 매크로 수정창을 연다.

아래와 같은 매크로를 추가한다.

Sub 쓸데없는행삭제하기()
    Dim lastrow As Integer
    lastrow = Selection.Rows.Count
    Do While lastrow > 1
        Rows(Selection.Row + 1).delete
        lastrow = lastrow - 1
    Loop     
End Sub

Imgur

삭제할 데이터의 행에 클릭을 한 후에 ALT+F8울 눌러서 방금 만들어 놓은 매크로를 실행한다.

909행을 빼고 나머지 행들이 제거된 것을 알 수 있다.