ข้ามไปที่เนื้อหาหลัก
การสนับสนุน
ลงชื่อเข้าใช้
ลงชื่อเข้าใช้ด้วย Microsoft
ลงชื่อเข้าใช้หรือสร้างบัญชี
สวัสดี
เลือกบัญชีอื่น
คุณมีหลายบัญชี
เลือกบัญชีที่คุณต้องการลงชื่อเข้าใช้

คุณสามารถใช้วิธีการต่อไปนี้เพื่อเปรียบเทียบข้อมูลในคอลัมน์เวิร์กชีต 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 2007 และ 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

  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 2007 และ 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

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

สํารวจสิทธิประโยชน์ของการสมัครใช้งาน เรียกดูหลักสูตรการฝึกอบรม เรียนรู้วิธีการรักษาความปลอดภัยอุปกรณ์ของคุณ และอื่นๆ

ชุมชนช่วยให้คุณถามและตอบคําถาม ให้คําติชม และรับฟังจากผู้เชี่ยวชาญที่มีความรู้มากมาย

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

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

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

×