ไปยังเนื้อหาหลัก

จะลบแถวที่ซ้ำกันออกจากตารางในเอกสาร Word ได้อย่างไร?

ในเอกสาร Word อาจมีบางตารางที่มีแถวที่ซ้ำกันซึ่งคุณต้องการเอาออกและคงลักษณะแรกไว้ในบางครั้ง ในกรณีนี้คุณสามารถเลือกที่จะลบรายการที่ซ้ำกันออกทีละรายการด้วยตนเองและคุณสามารถเลือกใช้รหัส VBA ได้

ลบแถวที่ซ้ำกันออกจากตารางใน Word


ลบแถวที่ซ้ำกันออกจากตารางใน Word

1. วางเคอร์เซอร์ไว้ที่ตารางที่คุณต้องการลบแถวที่ซ้ำกันออกจากนั้นกด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลใหม่
doc ลบแถวที่ซ้ำกัน table01

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

doc ลบแถวที่ซ้ำกัน table02

4 กด F5 เพื่อรันโค้ดจากนั้นแถวที่ซ้ำกันทั้งหมดจะถูกลบออก
doc ลบแถวที่ซ้ำกัน table03

หมายเหตุ: โค้ดด้านบนพิจารณาตัวพิมพ์เล็กและตัวพิมพ์ใหญ่หากคุณต้องการลบแถวที่ซ้ำกันในกรณีที่ไม่คำนึงถึงตัวพิมพ์คุณสามารถใช้รหัสด้านล่าง:

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

หากคุณต้องการลบแถวที่ซ้ำกันในตารางทั้งหมดของเอกสารให้วางเคอร์เซอร์ไว้ที่ตำแหน่งใดก็ได้ของเอกสารนอกตารางจากนั้นใช้หนึ่งในรหัสด้านบน


เรียกดูแบบแท็บและแก้ไขเอกสาร Word / สมุดงาน Excel หลายรายการเช่น Firefox, Chrome, Internet Explore 10!

คุณอาจคุ้นเคยกับการดูหน้าเว็บหลายหน้าใน Firefox / Chrome / IE และสลับไปมาระหว่างหน้าเว็บเหล่านั้นโดยคลิกที่แท็บที่เกี่ยวข้อง ที่นี่ Office Tab สนับสนุนการประมวลผลที่คล้ายกันซึ่งช่วยให้คุณสามารถเรียกดูเอกสาร Word หรือสมุดงาน Excel หลายรายการในหน้าต่าง Word หรือหน้าต่าง Excel และสลับไปมาระหว่างกันได้อย่างง่ายดายโดยคลิกที่แท็บ
คลิกเพื่อทดลองใช้ Office Tab ฟรี!

เรียกดูเอกสารหลายคำในหน้าต่างเดียวเป็น Firefox

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

เจาะลึกคุณสมบัติเด่นด้านล่างหรือ คลิกที่นี่เพื่อสำรวจพลังทั้งหมดของ Kutools for Word.

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/XLSX)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน ...

การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์   /  ปรับขนาดรูปภาพทั้งหมด   /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ ...

🧹 ทำความสะอาดได้อย่างง่ายดายกวาดออกไป พื้นที่พิเศษ  /  แบ่งส่วน  /   ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  /  หากต้องการทราบเครื่องมือในการถอดเพิ่มเติม โปรดไปที่ Remove Group ของเรา

ส่วนแทรกโฆษณา: สิ่งที่ใส่เข้าไป ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  /  ค้นพบเพิ่มเติมในกลุ่มแทรกของเรา

🔍 การเลือกที่แม่นยำ: ระบุหน้าเฉพาะ  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  /  นำทางอย่างง่ายดายโดยใช้กลุ่มที่เลือกของเรา

การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง ...

แปลงงาน Word ของคุณด้วย Kutools 👉 ดาวน์โหลดพร้อมทดลองใช้ 30 วันทันที 🚀.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations