엑셀 중복값 찾기 방법 4가지 (서식, 함수, 피벗, 매크로 활용)

Sub 중복값_자동찾기_매크로()

    Dim rng As Range
    Dim ws As Worksheet
    Dim backupWs As Worksheet
    Dim dict As Object
    Dim cell As Range
    Dim key As String
    Dim isFullMatch As VbMsgBoxResult
    Dim showCount As VbMsgBoxResult
    Dim changeFormat As VbMsgBoxResult
    Dim sortData As VbMsgBoxResult
    Dim sortCol As String
    Dim sortOrder As VbMsgBoxResult
    Dim backupAnswer As VbMsgBoxResult
    Dim originalSheetName As String
    Dim backupName As String
    Dim lastCol As Long
    Dim i As Long
    Dim nowTime As String

    Set ws = ActiveSheet
    originalSheetName = ws.Name

    ' 현재 시간 "MMDDHHmm" 형식 생성 (월일시분)
    nowTime = Format(Now, "MMDDHHmm")

    ' 백업 시트 이름 설정: 원본시트명 + 시간
    backupName = originalSheetName & nowTime

    ' 1. 백업 여부 먼저 질문
    backupAnswer = MsgBox("원본 데이터를 백업하시겠습니까?", vbYesNo + vbQuestion, "백업 여부")

    If backupAnswer = vbYes Then
        ' 백업 시트가 이미 있으면 삭제 (중복 방지)
        On Error Resume Next
        Application.DisplayAlerts = False
        Worksheets(backupName).Delete
        Application.DisplayAlerts = True
        On Error GoTo 0

        Set backupWs = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        backupWs.Name = backupName
        ws.UsedRange.Copy Destination:=backupWs.Range("A1")
        MsgBox "백업 시트가 생성되었습니다: '" & backupWs.Name & "'", vbInformation
        ws.Activate ' 백업 후 원래 시트로 다시 전환
    End If

    ' 2. 데이터 범위 선택
    On Error Resume Next
    Set rng = Application.InputBox("중복을 찾을 범위를 선택하세요", "범위 선택", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then
        MsgBox "선택된 범위가 없습니다.", vbExclamation
        Exit Sub
    End If

    ' 3. 여러 열 선택 시 비교 방법 묻기
    If rng.Columns.Count > 1 Then
        isFullMatch = MsgBox("선택한 열들의 모든 값이 동일해야 중복으로 판단할까요?" & vbCrLf & _
                             "(아니오 선택 시 첫 번째 열만 기준으로 판단합니다)", vbYesNo + vbQuestion, "중복 기준 선택")
    Else
        isFullMatch = vbNo ' 단일열이면 기본 첫 열 기준
    End If

    ' 4. 중복 개수 표시 여부
    showCount = MsgBox("중복 개수를 표시하시겠습니까?", vbYesNo + vbQuestion, "중복 개수 표시")

    ' 6. 중복 확인 열 초기화 (중복 개수 표시가 yes일 때만)
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    If showCount = vbYes Then
        ws.Cells(1, lastCol + 1).Value = "중복 개수"
    End If

    Set dict = CreateObject("Scripting.Dictionary")

    ' 7. 중복 판단 및 처리
    For Each cell In rng.Columns(1).Cells
        If cell.Row = 1 Then GoTo ContinueLoop ' 헤더 제외

        If rng.Columns.Count = 1 Or isFullMatch = vbNo Then
            ' 단일 열 또는 첫 열 기준
            key = Trim(cell.Value)
        Else
            key = ""
            For i = 1 To rng.Columns.Count
                key = key & "|" & Trim(cell.Offset(0, i - 1).Value)
            Next i
        End If

        If dict.Exists(key) Then
            dict(key) = dict(key) + 1
        Else
            dict.Add key, 1
        End If

ContinueLoop:
    Next cell

    ' 8. 중복 개수 먼저 표시 (서식 적용 전에)
    If showCount = vbYes Then
        For Each cell In rng.Columns(1).Cells
            If cell.Row = 1 Then GoTo NextLoopCount

            If rng.Columns.Count = 1 Or isFullMatch = vbNo Then
                key = Trim(cell.Value)
            Else
                key = ""
                For i = 1 To rng.Columns.Count
                    key = key & "|" & Trim(cell.Offset(0, i - 1).Value)
                Next i
            End If

            cell.Offset(0, rng.Columns.Count).Value = dict(key)

NextLoopCount:
        Next cell
    End If

    ' 5. 셀 서식 변경 여부 (중복 개수 표시 후 묻기)
    If showCount = vbYes Then
        changeFormat = MsgBox("중복값에 셀서식을 적용하시겠습니까?" & vbCrLf & _
                              "(진한 빨강 텍스트 + 연한 빨강 채우기)", vbYesNo + vbQuestion, "서식 적용")
    Else
        ' 중복 개수 미표시 상태라면 바로 묻기
        changeFormat = MsgBox("중복값에 셀서식을 적용하시겠습니까?" & vbCrLf & _
                              "(진한 빨강 텍스트 + 연한 빨강 채우기)", vbYesNo + vbQuestion, "서식 적용")
    End If

    ' 9. 중복 셀 서식 적용
    If changeFormat = vbYes Then
        For Each cell In rng.Columns(1).Cells
            If cell.Row = 1 Then GoTo NextLoopFormat

            If rng.Columns.Count = 1 Or isFullMatch = vbNo Then
                key = Trim(cell.Value)
            Else
                key = ""
                For i = 1 To rng.Columns.Count
                    key = key & "|" & Trim(cell.Offset(0, i - 1).Value)
                Next i
            End If

            If dict(key) > 1 Then
                If rng.Columns.Count = 1 Or isFullMatch = vbNo Then
                    cell.Interior.Color = RGB(255, 199, 206)
                    cell.Font.Color = RGB(156, 0, 6)
                Else
                    For i = 1 To rng.Columns.Count
                        cell.Offset(0, i - 1).Interior.Color = RGB(255, 199, 206)
                        cell.Offset(0, i - 1).Font.Color = RGB(156, 0, 6)
                    Next i
                End If
            End If

NextLoopFormat:
        Next cell
    End If

    ' 10. 정렬 여부
    sortData = MsgBox("데이터를 정렬하시겠습니까?", vbYesNo + vbQuestion, "정렬 여부")
    If sortData = vbYes Then
        sortCol = InputBox("정렬할 열의 이름을 입력하세요 (예: A, B, C...)", "정렬 열 입력")
        If sortCol = "" Then Exit Sub

        sortOrder = MsgBox("오름차순으로 정렬하시겠습니까?" & vbCrLf & _
                           "아니오를 선택하면 내림차순으로 정렬됩니다.", vbYesNoCancel + vbQuestion, "정렬 순서")
        If sortOrder = vbCancel Then Exit Sub

        Dim sortRange As Range
        Set sortRange = ws.Range(ws.Cells(rng.Row, 1), ws.Cells(rng.Row + rng.Rows.Count - 1, ws.Cells(rng.Row, ws.Columns.Count).End(xlToLeft).Column))

        sortRange.Sort Key1:=ws.Range(sortCol & rng.Row), Order1:=IIf(sortOrder = vbYes, xlAscending, xlDescending), Header:=xlYes
    End If

    MsgBox "중복값 처리가 완료되었습니다.", vbInformation

End Sub