엑셀 VBA 매크로 이용해서 특정 조건의 데이터를 삭제하고 싶을 때

반응형

엑셀시트의 자료에서 특정행을 삭제하는데 수작업으로 가능하지만 양이 많을때는 VBA 코드를 짜서 편리하게 이용할수 있습니다. 아래 예제는 특정조건에 맞는 데이터가 셀에 포함되어 있을 때 행 전체를 삭제하는 샘플입니다.

 

 

▼ 샘플데이터에서 소속이 “관리부” 인 데이터를 삭제하고자 합니다. 데이터가 많은 경우 일일이 삭제하는 것이 비효율적이고 쉽지 않기 때문에 매크로를 만들어 작업 속도를 올려보세요.

 

▼ 데이터 자동 삭제 매크로를 만들어 보겠습니다. 개발 도구 > 매크로 리본 메뉴를 클릭합니다. 

 

▼ 매크로를 실행할 함수를 만들어야 합니다. 매크로 이름에 함수명을 넣고 오른쪽 사이드 메뉴에서 만들기 버튼을 클릭합니다. 

 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 다른 셀에 일치하는 코드 값에 데이터 찾아 추가하기 ▶ 엑셀 VBA 마지막 행과 열의 수 찾기 ▶ 엑셀 VBA 시트에서 데이터 셀 영역 구하기 ▶ 엑셀 VBA – 매크로 이용해서 특정 조건의 데이터를 삭제하고 싶을 때 ▶ 엑셀 VBA 입력된 값 형식 확인 Information 관련 함수 모음

 

 

▼ 함수에 들어가는 전체 소스는 다음과 같습니다.

Sub 관리부_삭제()
   
    Dim co As Long, i As Long
    Dim join As String
    Dim buNum As String
    Dim deleteRow As Integer
 
    '추가할 시트에 Row count 를 알아옵니다
    co = ActiveSheet.Range("B3").CurrentRegion.Rows.Count
 
    Cells(3, "B").Select
 
    For i = 0 To co
        join = Selection.Offset(0, 0) ' 소속셀값
        buNum = Selection.Offset(0, 1) ' 부서번호셀값
        If join = "관리부" Then
            Selection.EntireRow.Delete
            co = co - 1
            deleteRow = deleteRow + 1
        Else
            Selection.Offset(1, 0).Select
        End If
    Next
   
End Sub

 

 

▼ 핵심 소스만 간략하게 설명하겠습니다. 특정 조건에 맞는 리스트를 삭제하기 위해 현재 추가된 전체 행 개수를 알아야 합니다. CurrentRegion 는 좌측 최상단에서 연속된 셀의 데이터 전체를 가져옵니다. CurrentRegion 를 이용해 행의 개수를 알아옵니다. 속성값은 Row count 입니다. 이 값으로 For 문을 돌립니다.

co = ActiveSheet.Range("B3").CurrentRegion.Rows.Count

 

다음은 검색할 데이터 시작 지점을 지정해야 합니다.

Cells(3, "B").Select

 

위에서 선택된 영역을 가져와 Offset 을 이용해 소속 셀의 값을 알아 옵니다.

join = Selection.Offset(0, 0) ' 소속셀값

 

삭제할 셀의 비교 값으로 동일한지 여부를 판단하고 Selection.EntireRow.Delete 로 행 전체를 삭제합니다.

If join = "관리부" Then
     Selection.EntireRow.Delete
     co = co - 1

 

▼ 함수의 소스 작성이 끝났다면 매크로를 돌려 데이터를 삭제해 보겠습니다. 매크로 창에서 실행할 이름을 선택하고 오른쪽에 실행 버튼을 클릭합니다. 

 

▼ 매크로 실행 결과는 다음과 같습니다. “관리부” 데이터가 모두 삭제되었습니다. 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 다른 셀에 일치하는 코드 값에 데이터 찾아 추가하기 ▶ 엑셀 VBA 마지막 행과 열의 수 찾기 ▶ 엑셀 VBA 시트에서 데이터 셀 영역 구하기 ▶ 엑셀 VBA – 매크로 이용해서 특정 조건의 데이터를 삭제하고 싶을 때 ▶ 엑셀 VBA 입력된 값 형식 확인 Information 관련 함수 모음

반응형

저작자표시비영리변경금지