วิธีการเปรียบเทียบข้อมูลในสองคอลัมน์เพื่อค้นหารายการที่ซ้ำกันใน Excel

คุณสามารถใช้วิธีการต่อไปนี้เพื่อเปรียบเทียบข้อมูลในคอลัมน์เวิร์กชีต Microsoft Excel สองคอลัมน์และค้นหารายการที่ซ้ำกัน 

วิธีที่ 1: ใช้สูตรเวิร์กชีต

  1. เริ่ม Excel

  2. ในเวิร์กชีตใหม่ให้ใส่ข้อมูลต่อไปนี้เป็นตัวอย่าง (ปล่อยให้คอลัมน์ B ว่างเปล่า):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. พิมพ์สูตรต่อไปนี้ในเซลล์ B1

    :=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. เลือกเซลล์ B1 ถึง B5

  5. ใน Excel ๒๐๐๗และเวอร์ชันที่ใหม่กว่าของ Excel ให้เลือกกรอกรายละเอียดในกลุ่มการแก้ไขแล้วเลือกลง

    ตัวเลขที่ซ้ำกันจะแสดงในคอลัมน์ B ตามตัวอย่างต่อไปนี้: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

วิธีที่ 2: ใช้แมโคร Visual Basic

คำเตือน: Microsoft มีตัวอย่างการเขียนโปรแกรมสำหรับภาพประกอบเท่านั้นโดยไม่มีการรับประกันทั้งที่แสดงหรือโดยนัย ซึ่งรวมถึงแต่ไม่จำกัดเพียงการรับประกันโดยนัยของเชิงพาณิชย์หรือการออกกำลังกายสำหรับวัตถุประสงค์ที่เฉพาะเจาะจง บทความนี้อนุมานว่าคุณคุ้นเคยกับภาษาการเขียนโปรแกรมที่ถูกแสดงและมีเครื่องมือที่ใช้ในการสร้างและตรวจแก้จุดบกพร่องขั้นตอน วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายฟังก์ชันการทำงานของกระบวนการที่เฉพาะเจาะจงได้ อย่างไรก็ตามพวกเขาจะไม่ปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชันการทำงานหรือสร้างกระบวนงานเพื่อให้ตรงกับความต้องการเฉพาะของคุณ

เมื่อต้องการใช้แมโคร Visual Basic เพื่อเปรียบเทียบข้อมูลในสองคอลัมน์ให้ใช้ขั้นตอนในตัวอย่างต่อไปนี้:

  1. เริ่มต้น Excel

  2. กด ALT + F11 เพื่อเริ่ม Visual Basic editor

  3. บนเมนูแทรกให้เลือกโมดูล

  4. ใส่โค้ดต่อไปนี้ในแผ่นงานโมดูล:

    Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    ' Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
    For Each y In CompareRange
    If x = y Then x.Offset(0, 1) = x
    Next y
    Next x
    End Sub
  5. กด ALT + F11 เพื่อกลับไปยัง Excel

    1. ใส่ข้อมูลต่อไปนี้เป็นตัวอย่าง (ปล่อยให้คอลัมน์ B ว่างเปล่า):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. เลือกเซลล์ A1 ถึง A5

  7. ใน Excel ๒๐๐๗และเวอร์ชันที่ใหม่กว่าของ Excel ให้เลือกแท็บนักพัฒนาแล้วเลือกแมโครในกลุ่มโค้ด

    หมายเหตุ: ถ้าคุณไม่เห็นแท็บนักพัฒนาคุณอาจจำเป็นต้องเปิดแท็บนักพัฒนา เมื่อต้องการทำเช่นนี้ให้เลือกตัวเลือก>ไฟล์>กำหนด Ribbon เองจากนั้นเลือกแท็บนักพัฒนาในกล่องกำหนดเองทางด้านขวา

  8. คลิกFind_Matchesแล้วคลิกเรียกใช้

    ตัวเลขที่ซ้ำกันจะแสดงในคอลัมน์ B หมายเลขที่ตรงกันจะถูกวางถัดจากคอลัมน์แรกตามที่แสดงไว้ที่นี่:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

หมายเหตุ:  หน้านี้ได้รับการแปลด้วยระบบอัตโนมัติ และอาจมีข้อผิดพลาดทางไวยากรณ์หรือความไม่ถูกต้อง จุดประสงค์ของเราคือเพื่อให้เนื้อหานี้มีประโยชน์กับคุณ คุณสามารถแจ้งให้เราทราบว่าข้อมูลมีประโยชน์หรือไม่ นี่คือบทความภาษาอังกฤษเพื่อให้คุณใช้อ้างอิง

ขยายทักษะ Office ของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×