Word 문서의 표에서 중복 행을 제거하는 방법은 무엇입니까?
Word 문서에는 제거하고 때때로 첫 번째 모양을 유지하려는 중복 행이있는 일부 테이블이있을 수 있습니다. 이 경우 중복 항목을 하나씩 수동으로 제거하도록 선택할 수 있으며 VBA 코드를 사용하도록 선택할 수도 있습니다.
Word의 표에서 중복 행 제거
1. 중복 행을 제거하려는 테이블에 커서를 놓고 Alt + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic 창.
2. 클릭 끼워 넣다 > 모듈 새 모듈을 만듭니다.
3. 아래 코드를 복사하여 새 모듈 스크립트.
VBA : Word의 표에서 중복 행 제거
Public Sub DeleteDuplicateRows2()
'UpdatebyExtendoffice20181011
Dim xTable As Table
Dim xRow As Range
Dim xStr As String
Dim xDic As Object
Dim I, J, KK, xNum As Long
If ActiveDocument.Tables.Count = 0 Then
MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
Exit Sub
End If
Application.ScreenUpdating = False
Set xDic = CreateObject("Scripting.Dictionary")
If Selection.Information(wdWithInTable) Then
Set xTable = Selection.Tables(1)
For I = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(I).Range
xStr = xRow.Text
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For J = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
xNum = xNum + 1
xTable.Rows(J).Delete
End If
Next
I = I - xNum
Else
xDic.Add xStr, I
End If
Next
Else
For I = 1 To ActiveDocument.Tables.Count
Set xTable = ActiveDocument.Tables(I)
xNum = -1
xDic.RemoveAll
For J = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(J).Range
xStr = xRow.Text
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For KK = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
xNum = xNum + 1
xTable.Rows(KK).Delete
End If
Next
J = J - xNum
Else
xDic.Add xStr, J
End If
Next
Next
End If
Application.ScreenUpdating = True
End Sub
4. 프레스 F5 키를 눌러 코드를 실행하면 모든 중복 행이 제거됩니다.
주의 사항: 위 코드는 대소 문자를 구분하며, 대소 문자를 구분하지 않는 중복 행을 제거하려면 아래 코드를 사용할 수 있습니다.
Public Sub DeleteDuplicateRows2()
'UpdatebyExtendoffice20181011
Dim xTable As Table
Dim xRow As Range
Dim xStr As String
Dim xDic As Object
Dim I, J, KK, xNum As Long
If ActiveDocument.Tables.Count = 0 Then
MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
Exit Sub
End If
Application.ScreenUpdating = False
Set xDic = CreateObject("Scripting.Dictionary")
If Selection.Information(wdWithInTable) Then
Set xTable = Selection.Tables(1)
For I = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(I).Range
xStr = UCase(xRow.Text)
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For J = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
xNum = xNum + 1
xTable.Rows(J).Delete
End If
Next
I = I - xNum
Else
xDic.Add xStr, I
End If
Next
Else
For I = 1 To ActiveDocument.Tables.Count
Set xTable = ActiveDocument.Tables(I)
xNum = -1
xDic.RemoveAll
For J = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(J).Range
xStr = UCase(xRow.Text)
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For KK = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
xNum = xNum + 1
xTable.Rows(KK).Delete
End If
Next
J = J - xNum
Else
xDic.Add xStr, J
End If
Next
Next
End If
Application.ScreenUpdating = True
End Sub
문서의 모든 테이블에서 중복 행을 제거하려면 테이블 외부의 문서 위치에 커서를 놓은 다음 위 코드 중 하나를 적용하십시오.
Firefox, Chrome, Internet Explore 10과 같은 여러 Word 문서 / Excel 통합 문서를 탭 브라우징 및 편집! |
Firefox / Chrome / IE에서 여러 웹 페이지를보고 해당 탭을 쉽게 클릭하여 전환하는 방법에 익숙 할 수 있습니다. 여기서 Office Tab은 유사한 처리를 지원하므로 하나의 Word 창 또는 Excel 창에서 여러 Word 문서 또는 Excel 통합 문서를 탐색하고 탭을 클릭하여 쉽게 전환 할 수 있습니다. |
최고의 사무 생산성 도구
Word 용 Kutools - Over로 단어 경험을 향상시키세요 100 놀라운 기능!
🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성 / 텍스트 다시 쓰기 / 문서 요약 / 정보 문의 문서 기반, 모두 Word 내에서
📘 문서 숙달: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...) / PDF로 일괄 변환 / 페이지를 이미지로 내보내기 / 한 번에 여러 파일 인쇄...
✏ 컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐 / 모든 사진 크기 조정 / 테이블 행과 열 바꾸기 / 표를 텍스트로 변환...
🧹 손쉬운 청소: 쓸어버리다 추가 공간 / 섹션 나누기 / 모든 헤더 / 텍스트 상자 / 하이퍼 링크 / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...
➕ 광고 삽입물: 삽입 천 단위 구분 기호 / 확인란 / 라디오 버튼 / QR 코드 / 바코드 / 대각선 표 / 방정식 캡션 / 이미지 캡션 / 테이블 캡션 / 여러 장의 사진 / 더 자세히 알아보세요. 그룹 삽입...
🔍 정밀한 선택: 핀포인트 특정 페이지 / 테이블 / 모양 / 제목 단락 / 탐색 기능 향상 배우기 기능 선택...
⭐ 스타 강화: 어떤 위치로든 빠르게 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간을 원활하게 전환합니다. / 11 변환 도구...