Jak zvýraznit duplicitní hodnoty v různých barvách v aplikaci Excel?
V aplikaci Excel můžeme snadno zvýraznit duplicitní hodnoty ve sloupci jednou barvou pomocí Podmíněné formátování, ale někdy musíme zvýraznit duplicitní hodnoty v různých barvách, abychom rychle a snadno rozpoznali duplikáty, jak ukazuje následující snímek obrazovky. Jak byste mohli vyřešit tento úkol v aplikaci Excel?
Zvýrazněte duplicitní hodnoty ve sloupci s různými barvami pomocí kódu VBA
Zvýrazněte duplicitní hodnoty ve sloupci s různými barvami pomocí kódu VBA
Ve skutečnosti neexistuje žádný přímý způsob, jak tuto práci dokončit v aplikaci Excel, ale níže uvedený kód VBA vám může pomoci, postupujte takto:
1. Vyberte sloupec hodnot, který chcete zvýraznit duplikáty s rozdílnými barvami, a poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zvýrazněte duplicitní hodnoty v různých barvách:
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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a okno s výzvou vám připomene, abyste vybrali rozsah dat, který chcete zvýraznit duplicitní hodnoty, viz screenshot:
4. Pak klikněte na tlačítko OK tlačítko, všechny duplicitní hodnoty byly zvýrazněny různými barvami, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!