Kako v Excelu poudariti podvojene vrednosti v različnih barvah?
V Excelu lahko podvojene vrednosti v stolpcu enostavno označimo z eno barvo z uporabo Pogojno oblikovanje, vendar moramo včasih poudariti podvojene vrednosti v različnih barvah, da dvojnike hitro in enostavno prepoznamo, kot je prikazano na sliki spodaj. Kako lahko to nalogo rešite v Excelu?
Podvojene vrednosti v stolpcu označite z različnimi barvami s pomočjo kode VBA
Podvojene vrednosti v stolpcu označite z različnimi barvami s pomočjo kode VBA
Pravzaprav ne moremo neposredno opraviti tega dela v Excelu, toda spodnja koda VBA vam lahko pomaga, naredite naslednje:
1. Izberite stolpec z vrednostmi, za katere želite poudariti dvojnike z različnimi barvami, nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Označite podvojene vrednosti v različnih barvah:
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. In nato pritisnite F5 tipko za zagon te kode in pozivno polje vas bo opozorilo, da izberete obseg podatkov, v katerem želite poudariti podvojene vrednosti, glejte posnetek zaslona:
4. Nato kliknite OK gumb, so bile vse podvojene vrednosti označene v različnih barvah, glej posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!