คุณสามารถใช้วิธีการต่อไปนี้เพื่อเปรียบเทียบข้อมูลในคอลัมน์เวิร์กชีต Microsoft Excel สองคอลัมน์และค้นหารายการที่ซ้ํากัน
วิธีที่ 1: ใช้สูตรเวิร์กชีต
-
เริ่มต้น Excel
-
ในเวิร์กชีตใหม่ ให้ใส่ข้อมูลต่อไปนี้เป็นตัวอย่าง (ปล่อยคอลัมน์ B ให้ว่างไว้):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
พิมพ์สูตรต่อไปนี้ในเซลล์ B1: =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
-
เลือกเซลล์ B1 ถึง B5
-
เลือก เติมในกลุ่ม การแก้ไข แล้วเลือก ลงตัวเลขที่ซ้ํากันจะแสดงในคอลัมน์ 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 เพื่อเปรียบเทียบข้อมูลในสองคอลัมน์ ให้ใช้ขั้นตอนในตัวอย่างต่อไปนี้:
-
เริ่มต้น Excel
-
กด ALT+F11 เพื่อเริ่มตัวแก้ไข Visual Basic
-
บนเมนู แทรก ให้เลือก มอดูล
-
ป้อนรหัสต่อไปนี้ในแผ่นงานโมดูล:
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 -
กด ALT+F11 เพื่อกลับไปยัง Excel
-
ใส่ข้อมูลต่อไปนี้เป็นตัวอย่าง (ปล่อยคอลัมน์ B ให้ว่างไว้):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
เลือกเซลล์ A1 ถึง A5
-
เลือกแท็บ นักพัฒนา แล้วเลือก แมโคร ในกลุ่ม โค้ด
หมายเหตุ: ถ้าคุณไม่เห็นแท็บ นักพัฒนา คุณอาจต้องเปิดใช้งาน เมื่อต้องการทําเช่นนี้ ให้เลือก ตัวเลือก > ไฟล์ > กําหนด Ribbon เอง แล้วเลือกแท็บ นักพัฒนา ในกล่องการกําหนดเองทางด้านขวา
-
คลิก Find_Matches แล้วคลิก เรียกใช้ตัวเลขที่ซ้ํากันจะแสดงในคอลัมน์ B ตัวเลขที่ตรงกันจะถูกใส่ถัดจากคอลัมน์แรก ดังที่แสดงไว้ที่นี่:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
