Hoe markeert u dubbele waarden in Excel met verschillende kleuren?
In Excel is het eenvoudig om dubbele waarden in een kolom met één kleur te markeren met behulp van Voorwaardelijke opmaak. Er zijn echter situaties waarin u duplicaten in verschillende kleuren wilt markeren voor een nog eenvoudiger identificatie, zoals in de schermafbeelding wordt getoond. In deze handleiding leest u hoe u deze taak uitvoert met VBA-code.
Markeer Dubbele waarden in een kolom met verschillende kleuren door VBA-code te gebruiken
Markeer Dubbele waarden in een kolom met verschillende kleuren door VBA-code te gebruiken
Hiervoor bestaat geen directe methode in Excel, maar de onderstaande VBA-code helpt u verder. Volg deze stappen:
1. Selecteer de kolom met waarden waarin u duplicaten in verschillende kleuren wilt markeren en druk vervolgens op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Markeer Dubbele waarden in verschillende kleuren:
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. Druk op de F5-toets om deze code uit te voeren. Vervolgens verschijnt er een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren om dubbele waarden te markeren, zie schermafbeelding:
4. Klik op de knop OK en alle dubbele waarden worden in verschillende kleuren gemarkeerd, zie schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins