Word 문서의 테이블에서 중복 행 제거하기(완전 가이드)

Word 테이블의 중복 행은 복사된 데이터, 가져온 보고서 또는 설문 결과를 다룰 때 문서를 혼란스럽고 비전문적으로 보이게 하며 분석을 어렵게 만듭니다. 안타깝게도 Microsoft Word 에는 Excel 처럼 테이블용 내장형 “중복 제거” 기능이 없습니다。
좋은 소식은 Word 에서도 중복 행을 정리할 수 있는 여러 가지 신뢰할 수 있는 방법이 있다는 점입니다。 아래에는 초보자부터 고급 자동화까지 세 가지 실용적인 방법을 단계별로 안내합니다。

Word 테이블에서 중복 행 제거하기

• 방법 1: Excel 을 사용하여 단일 테이블에서 처리
• 방법 2: VBA 코드를 사용하여 하나 또는 모든 테이블에서 처리
• 방법 3: Kutools for Word 를 사용하여 하나 또는 모든 테이블에서 처리

결론

방법 1: Excel 을 사용하여 중복 행 제거하기

Microsoft Excel 은 데이터 관리를 위해 설계되었기 때문에 중복 항목을 처리하는 가장 신뢰할 수 있는 방법은 테이블을 잠시 Excel 로 옮긴 후 다시 가져오는 것입니다。

1. 테이블 복사하기：
   Word 에서 테이블 위에 마우스를 올리고 왼쪽 상단의 십자 아이콘을 클릭하여 전체 테이블을 선택합니다。Ctrl + C를 누릅니다。
   
2. Excel 에 붙여넣기：
   빈 Excel 통합 문서을 열고 셀 A1 을 선택한 후 Ctrl + V 를 누릅니다。
3. Excel 에서 중복 제거：
   • 데이터 범위을(를) 강조 표시합니다。
   • 데이터탭을 상단 리본에서 선택합니다。
   • 중복 제거을(를)데이터도구그룹에서 클릭합니다。
   • 모든 열이 선택되어 있는지 확인하고확인을(를) 클릭합니다。
     
   • Excel 은 제거된 중복 행의 수를 표시합니다。
     
4. 다시 전송하기：
   Excel 에서 정리된 데이터를 복사한 후 Word 문서로 돌아가 기존 테이블을 삭제하고 Ctrl + V 를 눌러 고유한 행들을 붙여넣습니다。

방법 2: VBA 코드를 사용하여 중복 행 제거하기(하나 또는 모든 테이블에서)

대규모 Word 테이블을 자주 다루고 문서 내에서 자동화를 원한다면 VBA 가 좋은 선택입니다。 이 방법은 행을 비교하여 Word 내에서 직접 중복 항목을 삭제합니다。

이 VBA 코드는 현재 Word 문서의 특정 테이블 또는 모든 테이블에서 중복 행을 제거하여 각 고유 행의 첫 번째 항목만 유지합니다。

1. Alt + F11를 눌러 Microsoft Visual Basic for Applications 창을 엽니다。
2. 클릭하세요：삽입>모듈을 선택하여 새 모듈을 생성합니다。 다음 VBA 코드를 모듈 창에 복사하여 붙여넣으세요。

   Public Sub DeleteDuplicateRowsClean()
       Dim xTable As Table
       Dim xDic As Object
       Dim i As Long, j As Long
       Dim xStr As String
   
       If ActiveDocument.Tables.Count = 0 Then
           MsgBox "There is no table in this file", vbInformation, "Kutoolsfor word"
           Exit Sub
       End If
   
       Set xDic = CreateObject("Scripting.Dictionary")
       Application.ScreenUpdating = False
       If Selection.Information(wdWithInTable) Then
           ProcessTable Selection.Tables(1), xDic
       Else
           For i = 1 To ActiveDocument.Tables.Count
               ProcessTable ActiveDocument.Tables(i), xDic
               xDic.RemoveAll
           Next i
       End If
   
       Application.ScreenUpdating = True
       MsgBox "Complete!", vbInformation
   End Sub
   
   
   Private Sub ProcessTable(targetTable As Table, dic As Object)
       Dim r As Long
       Dim rowText As String
   
       For r = targetTable.Rows.Count To 1 Step -1
           rowText = targetTable.Rows(r).Range.Text
           If dic.Exists(rowText) Then
               targetTable.Rows(r).Delete
           Else
               dic.Add rowText, True
           End If
       Next r
   End Sub
         

3. 코드 창을 닫고 다음 중 하나를 수행하세요：
   • 특정 테이블에서 중복 제거하려면：
     해당 테이블 내 아무 곳이나 클릭합니다。
   • 모든 테이블에서 중복 제거하려면：
     커서가 어떤 테이블 내에도 있지 않은지 확인합니다。
4. 누르세요：Alt + F8,DeleteDuplicateRowsClean매크로를 선택한 후실행을 클릭합니다。

결과：
중복 행이 자동으로 선택된 표 또는 문서의 모든 테이블에서 제거됩니다。

Public Sub DeleteDuplicateRowsIgnoreCase()
    Dim xTable As Table
    Dim xDic As Object
    Dim i As Long

    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "There are no tables", vbInformation, "Kutoolsfor word"
        Exit Sub
    End If
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1

    Application.ScreenUpdating = False

    If Selection.Information(wdWithInTable) Then
        ProcessTable Selection.Tables(1), xDic
    Else
        For i = 1 To ActiveDocument.Tables.Count
            xDic.RemoveAll
            ProcessTable ActiveDocument.Tables(i), xDic
        Next i
    End If

    Application.ScreenUpdating = True
    MsgBox "complete", vbInformation
End Sub

Private Sub ProcessTable(targetTable As Table, dic As Object)
    Dim r As Long
    Dim rowText As String
    For r = targetTable.Rows.Count To 1 Step -1
        rowText = targetTable.Rows(r).Range.Text
        If dic.Exists(rowText) Then
            targetTable.Rows(r).Delete
        Else
            dic.Add rowText, True
        End If
    Next r
End Sub
    

방법 3: Kutools for Word 를 사용하여 중복 행 / 열 제거하기(하나 또는 모든 테이블에서)

Word 테이블에서 중복 행을 제거하는 가장 빠르고 사용자 친화적인 방법을 찾고 있다면 Kutools for Word 가 이상적인 솔루션입니다. 수동 작업이나 VBA 스크립트와 달리 Kutools 는 단 몇 번의 클릭으로 단일 테이블 또는 문서 내 모든 테이블의 데이터를 정리할 수 있는 기능을 제공합니다。 코딩 불필요， Excel 복사 불필요， 복잡한 설정 불필요—특히 대규모 또는 여러 개의 테이블을 자주 다루며 정확한 결과를 즉시 얻고자 하는 사용자에게 적합합니다。

Kutools for Word 을 다운로드하여 설치한 후다음 단계를 따르세요：

1. 이동하세요：Kutools 플러스탭에서테이블>빈 행/열 삭제을 클릭하여 대화 상자를 엽니다。
   
2. 테이블에서 빈 행 또는 중복 행/열 삭제대화 상자에서 다음 옵션을 지정하세요： dialog box, specify the following options:
   1. 범위 선택(검색 위치)
      검색 위치 드롭다운 목록에서 다음 옵션 중 하나를 선택하세요：
      • 선택된 표(들)– 선택한 테이블에서만 중복 행을(를) 제거합니다。
      • 활성 문서의 모든 테이블– 현재 문서의 모든 테이블에서 중복 행을(를) 제거합니다。
   2. 삭제 유형을(를) 지정하고 삭제할행또는열을(를) 선택합니다。
   3. 중복된 행 또는 열을 제거하려면 중복 행 / 열을 선택합니다。
   4. 선택적 옵션 설정
      • 대소문자 구분(선택 사항)：
        Kutools 가 대소문자가 다른 텍스트를 다른 값으로 간주하도록 하려면 이 옵션을 활성화하세요。
      • 빈 행 삭제(선택 사항)：
        동시에 빈 행도 제거하려면 이 옵션을 선택하세요。
   5. 확인.
      

결과：
Kutools 는 지정한 테이블을 즉시 스캔하여 사용자가 지정한 중복 행 또는 열을 제거합니다。

결론

Word 의 테이블에서 중복 행을 제거하는 것은 Word 에 내장된 중복 제거 도구가 없기 때문에 어려울 수 있습니다。 그러나 적절한 방법을 선택하면 데이터를 효율적이고 정확하게 정리할 수 있습니다。

• Excel 을 사용하는 방법은 단일 테이블로 작업하거나 대용량 데이터를 처리할 때 신뢰할 수 있는 옵션이며， 특히 익숙하고 코드 없이 작업하려는 경우에 적합합니다。
• VBA 코드를 사용하는 방법은 하나 또는 모든 테이블에서 중복 행을 제거하고 프로세스를 자동화하려는 고급 사용자에게 적합하지만， 기술적 지식과 매크로 사용이 가능한 문서가 필요합니다。
• Kutools for Word 를 사용하는 방법은 가장 빠르고 사용자 친화적인 솔루션으로, Excel 이나 VBA 없이도 몇 번의 클릭만으로 하나 또는 모든 테이블에서 중복 행을 제거할 수 있습니다。

자신의 기술 수준과 문서 복잡도에 가장 적합한 방법을 선택함으로써 Word 테이블을 깔끔하고 정확하며 관리하기 쉽게 유지할 수 있으며， 시간을 절약하고 반복적인 수작업을 피할 수 있습니다。