วิธีจัดตำแหน่งที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์ใน Excel
หากคุณมีรายชื่อสองรายการและคุณต้องการเปรียบเทียบสองคอลัมน์นี้และค้นหารายการที่ซ้ำกันในทั้งสองจากนั้นจัดแนวหรือแสดงชื่อที่ตรงกันตามคอลัมน์แรกในคอลัมน์ใหม่ตามภาพหน้าจอต่อไปนี้ หากต้องการแสดงรายการค่าที่ซ้ำกันซึ่งมีอยู่ในทั้งสองคอลัมน์บทความนี้อาจแนะนำเทคนิคบางอย่างในการแก้ปัญหา
จัดตำแหน่งที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์ด้วยสูตร
จัดตำแหน่งที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์ด้วยรหัส VBA
ค้นหาและเน้นค่าที่ซ้ำกันหรือค่าที่ตรงกันในสองคอลัมน์ด้วย Kutools for Excel
จัดตำแหน่งที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์ด้วยสูตร
นี่คือสูตรง่ายๆที่สามารถช่วยให้คุณแสดงค่าที่ซ้ำกันจากสองคอลัมน์ กรุณาทำตามนี้:
ใส่สูตรนี้: =IF(ISNA(MATCH(A2,$C$2:$C$12,0)),"",INDEX($C$2:$C$12,MATCH(A2,$C$2:$C$12,0))) ลงในเซลล์ว่างซึ่งอยู่ข้างคอลัมน์แรกของคุณ B2ตัวอย่างเช่นจากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้และค่าทั้งหมดทั้งในคอลัมน์ A และคอลัมน์ C จะสอดคล้องกับค่าที่ตรงกันในคอลัมน์ A โปรดดูภาพหน้าจอ:
หมายเหตุ: ในสูตรข้างต้น A2 คือค่าเซลล์แรกของคอลัมน์ที่คุณต้องการเปรียบเทียบและ C2: C12 ข้อมูลคอลัมน์อื่นที่คุณต้องการเปรียบเทียบด้วย คุณสามารถเปลี่ยนการอ้างอิงเซลล์ตามความต้องการของคุณ
จัดตำแหน่งที่ซ้ำกันหรือค่าที่ตรงกันในสองคอลัมน์:
Kutools สำหรับ Excel's เลือกเซลล์เดียวกันและต่างกัน คุณลักษณะนี้สามารถช่วยให้คุณเลือกและเน้นเซลล์เดียวกันหรือต่างกันได้อย่างรวดเร็วจากสองคอลัมน์ Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที! |
จัดตำแหน่งที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์ด้วยรหัส VBA
สมมติว่าคุณมีคอลัมน์ E และคอลัมน์ F สองคอลัมน์ที่อยู่ติดกันซึ่งมีชื่อซ้ำกันโดยมีรหัสต่อไปนี้คอลัมน์ใหม่จะถูกแทรกระหว่างสองคอลัมน์นี้และค่าที่ซ้ำกันจะแสดงตามภาพด้านล่างนี้
1. ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: จัดแนวรายการที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์
Sub Listduplicates()
'Updateby Extendoffice 20160613
Dim rngA As Range
Set rngA = Range([E1], Cells(Rows.Count, "E").End(xlUp))
rngA.Offset(0, 1).Columns.Insert
With rngA.Offset(0, 1)
.FormulaR1C1 = _
"=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
.Value = .Value
End With
End Sub
หมายเหตุ: ในโค้ดด้านบน E1 เป็นเซลล์แรกในคอลัมน์เปรียบเทียบแรกของคุณและ E ระบุตัวอักษรคอลัมน์แรกของข้อมูลของคุณ และสองคอลัมน์ของคุณต้องอยู่ติดกัน
3. จากนั้นกด F5 คีย์เพื่อรันโค้ดนี้หลังจากรันโค้ดแล้วคอลัมน์ใหม่จะถูกแทรกระหว่างสองคอลัมน์นี้และค่าที่ซ้ำกันทั้งสองคอลัมน์จะถูกจัดแนวตามค่าแรกที่ตรงกัน
ค้นหาและเน้นค่าที่ซ้ำกันหรือค่าที่ตรงกันในสองคอลัมน์ด้วย Kutools for Excel
ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ เลือกเซลล์เดียวกันและต่างกัน คุณสามารถเปรียบเทียบข้อมูลในสองคอลัมน์ได้อย่างรวดเร็วและเลือกเซลล์ที่ซ้ำกันในคอลัมน์เดียว ยิ่งไปกว่านั้นคุณสามารถแรเงาสีพื้นหลังหรือสีแบบอักษรสำหรับรายการที่ซ้ำกันได้
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. ถือ Ctrl เพื่อเลือกคอลัมน์ข้อมูลสองคอลัมน์แยกกันจากนั้นคลิก Kutools > เลือก > เลือกเซลล์เดียวกันและต่างกันดูภาพหน้าจอ:
2. ใน เลือกเซลล์เดียวกันและต่างกัน กล่องโต้ตอบตรวจสอบ ข้อมูลของฉันมีส่วนหัว หากคุณไม่ต้องการเปรียบเทียบส่วนหัวจากนั้นเลือก แต่ละแถว ภายใต้ อยู่บนพื้นฐานของ ส่วนและเลือก ค่าเดียวกัน จาก หา ในเวลาเดียวกันคุณสามารถเติมพื้นหลังหรือสีแบบอักษรสำหรับค่าที่ซ้ำกันในส่วน การประมวลผล มาตรา. ดูภาพหน้าจอ:
3. จากนั้นคลิก Ok ปุ่มและค่าที่ซ้ำกันทั้งในคอลัมน์ A และในคอลัมน์ B ได้ถูกเลือกและเน้นในคอลัมน์ A ดังภาพหน้าจอต่อไปนี้:
ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!
การสาธิต: ค้นหาและเน้นค่าที่ซ้ำกันหรือจับคู่ค่าในสองคอลัมน์ด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!