Hogyan lehet kiemelni az Excel más színű másolatának értékeit?
Az Excelben könnyen kiemelhetjük az oszlopok duplikált értékeit egy színnel a Feltételes formázás, de néha ki kell emelnünk az ismétlődő értékeket különböző színekben, hogy a duplikátumok gyorsan és egyszerűen felismerhetők legyenek, ahogy az alábbi képen látható. Hogyan oldhatná meg ezt a feladatot Excelben?
Jelölje ki a duplikált értékeket egy oszlopban, különböző színekkel, a VBA kód használatával
Jelölje ki a duplikált értékeket egy oszlopban, különböző színekkel, a VBA kód használatával
Valójában nincs közvetlen módja ennek a feladatnak az Excelben történő befejezésére, de az alábbi VBA-kód segíthet, kérjük, tegye a következőket:
1. Jelölje ki az értékoszlopot, amelyet a különbözõ színû másolatokkal szeretne kiemelni, majd tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Jelölje ki az ismétlődő értékeket különböző színekben:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és egy prompt doboz arra emlékezteti Önt, hogy válassza ki az adattartományt, amely kiemelni kívánja az ismétlődő értékeket, lásd a képernyőképet:
4. Ezután kattintson OK gombra, az összes ismétlődő érték különböző színnel lett kiemelve, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!