Як виділити повторювані значення різними кольорами в Excel?
В Excel ми можемо легко виділити повторювані значення в стовпці одним кольором за допомогою Умовне форматування, але, іноді нам потрібно виділити повторювані значення різними кольорами, щоб швидко і легко розпізнати дублікати, як показано на наступному скріншоті. Як ви могли вирішити це завдання в Excel?
Виділіть повторювані значення в стовпці різними кольорами за допомогою коду VBA
Виділіть повторювані значення в стовпці різними кольорами за допомогою коду VBA
Насправді у нас немає прямого способу закінчити цю роботу в Excel, але, наведений нижче код VBA може вам допомогти, зробіть наступне:
1. Виділіть стовпець значень, які потрібно виділити дублікатами різницевими кольорами, а потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!