엑셀 VBA 자동화 (14편): 두 개의 인사 명부 대조, 바뀐 데이터 1초 만에 찾아내기

엑셀 VBA 자동화 (14편): 두 개의 인사 명부 대조, 바뀐 데이터 1초 만에 찾아내기

지난달 데이터와 이번 달 데이터를 비교하여 차이점만 쏙 뽑아내야 할 때가 있죠? 수동으로 하면 반나절 걸리는 대조 작업을 단 1초 만에 끝내주는 '자동 대조 강조 매크로'를 제작해 봅니다.

EXCEL PRACTICAL GUIDE

VBA의 For...Next 이중 반복문을 활용하면 두 시트의 방대한 셀들을 전수 조사하여 값이 다른 부분만 노란색으로 강조할 수 있습니다.

1단계: 시트 이름 수정
비교할 두 시트의 이름을 각각 '기준데이터', '비교데이터'로 변경합니다.

2단계: VBA 편집기 모듈 추가
Alt + F11을 누른 후 [삽입] - [모듈]을 클릭합니다.

3단계: 대조 매크로 코드 작성
아래 코드를 복사하여 모듈 창에 붙여넣으세요.

Sub CompareAndHighlight()
    Dim wsBase As Worksheet, wsComp As Worksheet
    Dim r As Long, c As Long, lastRow As Long, lastCol As Long
    Set wsBase = Worksheets("기준데이터")
    Set wsComp = Worksheets("비교데이터")
    lastRow = wsBase.Range("A1").CurrentRegion.Rows.Count
    lastCol = wsBase.Range("A1").CurrentRegion.Columns.Count
    wsComp.Cells.Interior.ColorIndex = xlNone
    For r = 1 To lastRow
        For c = 1 To lastCol
            If wsBase.Cells(r, c).Value <> wsComp.Cells(r, c).Value Then
                wsComp.Cells(r, c).Interior.Color = vbYellow
            End If
        Next c
    Next r
    MsgBox "대조 완료!"
End Sub

4단계: 버튼 연결
시트에서 도형을 그린 후 우클릭, [매크로 지정]으로 코드를 연결합니다.

💡 실무 팁
두 시트의 데이터 시작 행과 열 순서가 완벽하게 같아야 정확한 대조가 가능합니다.

자동 대조 도구로 데이터 관리의 정확성을 높이고 업무 시간을 획기적으로 단축해 보세요.