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

การแปลบทความ การแปลบทความ
หมายเลขบทความ (Article ID): 213367 - ผลิตภัณฑ์ที่เกี่ยวข้องในบทความนี้
ขยายทั้งหมด | ยุบทั้งหมด

เนื้อหาบนหน้านี้

สรุป

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

ข้อมูลเพิ่มเติม

วิธีที่ 1: ใช้สูตรที่อยู่ในแผ่นงาน

เมื่อต้องการใช้สูตรที่อยู่ในแผ่นงานเพื่อเปรียบเทียบข้อมูลในสองคอลัมน์ ให้ทำตามขั้นตอนต่อไปนี้:
  1. เริ่ม Excel
  2. ในแผ่นงานใหม่ ให้ป้อนข้อมูลต่อไปนี้ (ปล่อยคอลัมน์ B ให้ว่างไว้):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  3. พิมพ์สูตรต่อไปนี้ลงในเซลล์ B1:
    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
  4. เลือกเซลล์ B1:B5
  5. ใน Microsoft Office Excel 2003 และ Excel รุ่นก่อนหน้า ชี้ไปที่ เติม ในเมนู แก้ไข แล้วคลิก ลง

    ใน Microsoft Office Excel 2007 และ Excel 2010 คลิก เติม ในกลุ่ม การแก้ไข แล้วคลิก ลง

    ตัวเลขที่ซ้ำกันจะแสดงในคอลัมน์ B ดังในตัวอย่างต่อไปนี้:
       A1: 1   B1:     C1: 3
       A2: 2   B2: 2   C2: 5
       A3: 3   B3: 3   C3: 8
       A4: 4   B4:     C4: 2
       A5: 5   B5: 5   C5: 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
        ' กำหนด CompareRange ให้เท่ากับช่วงที่คุณจะ
        ' เปรียบเทียบการเลือก
        กำหนด CompareRange = ช่วง("C1:C5")
        ' หมายเหตุ: ถ้าช่วงการเปรียบเทียบอยู่ในสมุดงาน
        ' หรือแผ่นงานอื่น ให้ใช้ไวยากรณ์ต่อไปนี้
        ' Set CompareRange = Workbooks("Book2"). _
        '   Worksheets("Sheet2").Range("C1:C5")
        '
        ' วนซ้ำแต่ละเซลล์ในการเลือกดังกล่าวและเปรียบเทียบกับ
        ' แต่ละเซลล์ใน CompareRange
        สำหรับ x แต่ละตัวในการเลือก
            สำหรับ y แต่ละตัวใน CompareRange
                ถ้า x = y จะได้ x.Offset(0, 1) = x
            Next y
        Next x
    End Sub
    					
  5. กด ALT+F11 เพื่อกลับไปยัง Excel
  6. ป้อนข้อมูลต่อไปนี้ (ปล่อยคอลัมน์ B ให้ว่างไว้):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  7. เลือกช่วง A1:A5
  8. ใน Excel 2003 และ Excel รุ่นก่อนหน้า ชี้ไปที่ แมโคร ในเมนู เครื่องมือ แล้วคลิก แมโคร

    ใน Excel 2007 และ Excel 2010 ให้คลิกแท็บ นักพัฒนา แล้วคลิก แมโคร ในกลุ่ม รหัส
  9. คลิก Find_Matches แล้วคลิก เรียกใช้
ตัวเลขที่ซ้ำกันจะแสดงในคอลัมน์ B ตัวเลขที่ตรงกันจะถูกใส่ไว้ถัดจากคอลัมน์แรก ดังแสดงต่อไปนี้:
   A1: 1   B1:     C1: 3
   A2: 2   B2: 2   C2: 5
   A3: 3   B3: 3   C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5: 5   C5: 0
				
หมายเหตุ นี่คือบทความ "FAST PUBLISH" (เผยแพร่ด่วน) ที่สร้างขึ้น โดยตรงจากหน่วยงานสนับสนุนภายในองค์กรของ Microsoft ข้อมูลที่มีอยู่ในที่นี้ได้รับการจัดทำขึ้นตามสภาพที่เป็นโดยตอบสนองต่อประเด็นปัญหาที่เกิดขึ้น เนื่องด้วยความรวดเร็วในการจัดทำเอกสารนี้ให้พร้อมใช้งาน เนื้อหาสาระในเอกสารดังกล่าวจึงอาจจะมีส่วนที่พิมพ์ผิดพลาดและอาจจะได้รับการตรวจทานแก้ไขเมื่อใดก็ได้โดยไม่จำเป็นต้องแจ้งให้ทราบ โปรดดู ข้อกำหนดการใช้งาน สำหรับประเด็นการพิจารณาอื่นๆ

คุณสมบัติ

หมายเลขบทความ (Article ID): 213367 - รีวิวครั้งสุดท้าย: 28 กุมภาพันธ์ 2556 - Revision: 1.0
ใช้กับ
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
Keywords: 
kbdtacode kbhowto kbprogramming KB213367

ให้ข้อเสนอแนะ

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com