วิธีการเน้นค่าที่ซ้ำกันในสีต่างๆใน Excel
ใน Excel เราสามารถเน้นค่าที่ซ้ำกันในคอลัมน์ด้วยสีเดียวได้อย่างง่ายดายโดยใช้ไฟล์ การจัดรูปแบบตามเงื่อนไขแต่บางครั้งเราจำเป็นต้องเน้นค่าที่ซ้ำกันด้วยสีที่ต่างกันเพื่อให้จดจำรายการที่ซ้ำกันได้อย่างรวดเร็วและง่ายดายตามภาพหน้าจอต่อไปนี้ คุณจะแก้ปัญหานี้ใน Excel ได้อย่างไร
เน้นค่าที่ซ้ำกันในคอลัมน์ที่มีสีต่างกันโดยใช้รหัส VBA
ในความเป็นจริงไม่มีวิธีโดยตรงที่เราจะทำงานนี้ให้เสร็จใน Excel แต่รหัส VBA ด้านล่างอาจช่วยคุณได้โปรดทำดังนี้
1. เลือกคอลัมน์ของค่าที่คุณต้องการเน้นรายการที่ซ้ำกันด้วยสีที่ต่างกันจากนั้นกดปุ่ม ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: เน้นค่าที่ซ้ำกันในสีต่างๆ:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการเน้นค่าที่ซ้ำกันดูภาพหน้าจอ:
4. จากนั้นคลิก OK ปุ่มค่าที่ซ้ำกันทั้งหมดได้รับการเน้นด้วยสีที่ต่างกันดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!