Como destacar valores duplicados em cores diferentes no Excel?
No Excel, podemos destacar facilmente os valores duplicados em uma coluna com uma cor usando o Formatação condicional, mas, às vezes, precisamos destacar os valores duplicados em cores diferentes para reconhecer as duplicatas de forma rápida e fácil, conforme mostrado a seguir. Como você resolveria essa tarefa no Excel?
Destacar valores duplicados em uma coluna com cores diferentes usando o código VBA
Destacar valores duplicados em uma coluna com cores diferentes usando o código VBA
Na verdade, não há uma maneira direta de terminarmos este trabalho no Excel, mas o código VBA abaixo pode ajudá-lo, faça o seguinte:
1. Selecione a coluna de valores que deseja destacar duplicados com cores diferentes e, em seguida, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: destaque valores duplicados em cores diferentes:
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. E, em seguida, pressione F5 para executar este código, e uma caixa de prompt irá lembrá-lo de selecionar o intervalo de dados que você deseja destacar os valores duplicados, consulte a captura de tela:
4. Então clique OK botão, todos os valores duplicados foram destacados em cores diferentes, consulte a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
