Hvordan fremhæves duplikatværdier i forskellige farver i Excel?
I Excel kan vi nemt fremhæve de duplikerede værdier i en kolonne med en farve ved hjælp af Betinget formatering, men nogle gange er vi nødt til at fremhæve duplikatværdierne i forskellige farver for at genkende duplikaterne hurtigt og nemt som det viste skærmbillede. Hvordan kunne du løse denne opgave i Excel?
Fremhæv duplikatværdier i en kolonne med forskellige farver ved hjælp af VBA-kode
Fremhæv duplikatværdier i en kolonne med forskellige farver ved hjælp af VBA-kode
Faktisk er der ingen direkte måde for os at afslutte dette job i Excel, men nedenstående VBA-kode kan hjælpe dig, skal du gøre som følger:
1. Vælg kolonnen med værdier, som du vil fremhæve duplikater med forskellige farver, og hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Fremhæv duplikatværdier i forskellige farver:
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. Og tryk derefter på F5 nøgle til at køre denne kode, og et promptfelt vil minde dig om at vælge det dataområde, som du vil fremhæve duplikatværdierne, se skærmbillede:
4. Klik derefter på OK knap, alle duplikatværdier er fremhævet i forskellige farver, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!