Как да маркирате дублирани стойности в различни цветове в Excel?
В Excel можем лесно да маркираме дублиращите се стойности в колона с един цвят, като използваме Условно форматиране, но понякога трябва да подчертаем дублиращите се стойности в различни цветове, за да разпознаем дубликатите бързо и лесно, както е показано на следната екранна снимка. Как бихте могли да решите тази задача в Excel?
Маркирайте дублиращи се стойности в колона с различни цветове, като използвате VBA код
Маркирайте дублиращи се стойности в колона с различни цветове, като използвате VBA код
Всъщност няма пряк начин да завършим тази работа в Excel, но кодът VBA по-долу може да ви помогне, моля, направете следното:
1. Изберете колоната със стойности, които искате да маркирате дубликати с различни цветове, след което задръжте ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Кликнете Поставете > Модулии поставете следния код в Модули Window.
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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
