ในบรรดาเครื่องมือ Microsoft Excel มาตรฐาน มีหลายวิธีในการเน้นสีที่ซ้ำกัน วิธีที่ง่ายที่สุดและเร็วที่สุดคือการจัดรูปแบบตามเงื่อนไข ในการดำเนินการนี้ เพียงเลือกช่วงของเซลล์แล้วเลือกบนแท็บ หน้าแรก — การจัดรูปแบบตามเงื่อนไข — กฎการเลือกเซลล์ — ค่าที่ซ้ำกัน (หน้าแรก — การจัดรูปแบบตามเงื่อนไข — เน้นกฎของเซลล์ — ค่าที่ซ้ำกัน):
อย่างไรก็ตาม ในกรณีนี้ สีเติมของเซลล์ทั้งหมดจะเหมือนกัน กล่าวคือ เพียงส่งสัญญาณว่าองค์ประกอบนั้นซ้ำกันที่อื่นในช่วงนั้น แต่ไม่ได้ดำเนินการใดๆ เพื่อช่วยในการค้นหา คุณสามารถแก้ไขสถานการณ์ด้วยมาโครขนาดเล็กที่จะเติมแต่ละคู่ (หรือมากกว่า) ของรายการที่ซ้ำกันซ้ำ ๆ ด้วยสีของตัวเอง:
ชัดเจนขึ้นมากใช่มั้ย? แน่นอนว่าด้วยจำนวนเซลล์ที่เกิดซ้ำจำนวนมาก จะทำให้แยกแยะระหว่างเฉดสีได้ยาก แต่ด้วยจำนวนที่ซ้ำกันค่อนข้างน้อย วิธีนี้จึงจะได้ผลอย่างสมบูรณ์แบบ
หากต้องการใช้มาโครนี้ ให้กดแป้นพิมพ์ลัด Alt + F11 หรือปุ่ม ของ Visual Basic แถบ ผู้พัฒนา, แทรกโมดูลเปล่าใหม่ผ่านเมนู แทรก – โมดูล และคัดลอกโค้ดของมาโครนี้ที่นั่น:
Sub DuplicatesColoring() Dim Dupes() 'ประกาศอาร์เรย์เพื่อเก็บซ้ำ ReDim Dupes (1 To Selection.Cells.Count, 1 ถึง 2) Selection.Interior.ColorIndex = -4142 'ลบการเติมถ้า i = 3 สำหรับแต่ละเซลล์ใน การเลือก ถ้า WorksheetFunction.CountIf(Selection, cell.Value) > 1 แล้ว For k = LBound(Dupes) To UBound(Dupes) 'ถ้าเซลล์อยู่ในอาร์เรย์ของรายการที่ซ้ำกันอยู่แล้ว ให้กรอก If Dupes(k, 1) = cell แล้วเซลล์.มหาดไทย. ColorIndex = Dupes(k, 2) Next k 'ถ้าเซลล์มีสำเนาแต่ยังไม่อยู่ในอาร์เรย์ ให้เพิ่มลงในอาร์เรย์และเติมลงในอาร์เรย์ ถ้า cell.Interior.ColorIndex = -4142 จากนั้น cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End ถ้าเซลล์ถัดไป End Sub
ตอนนี้คุณสามารถเลือกช่วงใดก็ได้ที่มีข้อมูลในชีตและเรียกใช้มาโครของเราโดยใช้แป้นพิมพ์ลัด Alt + F8 หรือผ่านปุ่ม แมโคร (มาโคร) แถบ ผู้พัฒนา (ผู้พัฒนา).
- เน้นรายการที่ซ้ำกันด้วยสี
- มาโครคืออะไร ตำแหน่งที่จะแทรกโค้ดแมโครใน Visual Basic จะเรียกใช้ได้อย่างไร
- วิธีนับจำนวนค่าที่ไม่ซ้ำในช่วงของเซลล์ที่กำหนด