¿Cómo resaltar valores duplicados en diferentes colores en Excel?
En Excel, podemos resaltar fácilmente los valores duplicados en una columna con un color usando el Formato condicional, pero, a veces, necesitamos resaltar los valores duplicados en diferentes colores para reconocer los duplicados rápida y fácilmente como se muestra en la siguiente captura de pantalla. ¿Cómo podrías resolver esta tarea en Excel?
Resalte los valores duplicados en una columna con diferentes colores usando el código VBA
Resalte los valores duplicados en una columna con diferentes colores usando el código VBA
De hecho, no hay una forma directa de que terminemos este trabajo en Excel, pero el siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Seleccione la columna de valores que desea resaltar los duplicados con colores diferentes, luego mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Haga Clic en recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: resalte los valores duplicados en diferentes colores:
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. Y luego presione F5 para ejecutar este código, y un cuadro de aviso le recordará que seleccione el rango de datos en el que desea resaltar los valores duplicados, vea la captura de pantalla:
4. Luego haga clic OK botón, todos los valores duplicados se han resaltado en diferentes colores, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!