Как выделить повторяющиеся значения разными цветами в Excel?
В Excel мы можем легко выделить повторяющиеся значения в столбце одним цветом с помощью Условное форматирование, но иногда нам нужно выделить повторяющиеся значения разными цветами, чтобы быстро и легко распознать дубликаты, как показано на следующем снимке экрана. Как бы вы могли решить эту задачу в Excel?
Выделите повторяющиеся значения в столбце разными цветами с помощью кода VBA
Выделите повторяющиеся значения в столбце разными цветами с помощью кода VBA
Фактически, у нас нет прямого способа завершить эту работу в Excel, но приведенный ниже код VBA может вам помочь, пожалуйста, сделайте следующее:
1. Выберите столбец значений, дубликаты которых вы хотите выделить разными цветами, затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: выделите повторяющиеся значения разными цветами:
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, Затем нажмите F5 нажмите клавишу для запуска этого кода, и окно подсказки напомнит вам выбрать диапазон данных, в котором вы хотите выделить повторяющиеся значения, см. снимок экрана:
4. Затем нажмите OK кнопку, все повторяющиеся значения были выделены разными цветами, см. снимок экрана:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!