Hur markerar du dubbla värden i olika färger i Excel?
I Excel kan vi enkelt markera de dubbla värdena i en kolumn med en färg med hjälp av Villkorlig formatering, men ibland måste vi markera dupliceringsvärdena i olika färger för att känna igen dubbletterna snabbt och enkelt som följande skärmdump visas. Hur kunde du lösa den här uppgiften i Excel?
Markera dubbla värden i en kolumn med olika färger med hjälp av VBA-kod
Markera dubbla värden i en kolumn med olika färger med hjälp av VBA-kod
Det finns faktiskt inget direkt sätt för oss att slutföra det här jobbet i Excel, men nedanstående VBA-kod kan hjälpa dig, gör så här:
1. Välj den kolumn med värden som du vill markera dubbletter med olika färger och håll sedan ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Markera dubbla värden i olika färger:
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. Och tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta kommer att påminna dig om att välja det dataområde som du vill markera dubbletterna, se skärmdump:
4. Klicka sedan OK -knappen, alla dubbla värden har markerats i olika färger, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!