Здравствуйте,

Есть ли способ сделать так, чтобы это влияло только на выделенный столбец, а не на всю строку? Некоторые из смелых красных и синих цветов трудно разглядеть по всей таблице. Спасибо

Патрик, выделяй только нужные ячейки. Не выделяйте весь столбец, который будет включать все тысячи пустых ячеек.

Sub BuscarD()
Dim xRg как диапазон
Dim xTxt как строка
Dim xCell как диапазон
Dim xChar как строка
Dim xCellPre как диапазон
Dim xCol как коллекция
Дим я пока
Dim J как целое число
Dim K как целое число
Dim xCLR как целое число

хCLR = 28

On Error Resume Next
Если ActiveWindow.RangeSelection.Count > 1 Тогда
xTxt = ActiveWindow.RangeSelection.AddressLocal
Еще
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Выбор рангом для оценки:", "Дубликаты автобусов", xTxt, , , , , 8)
Если xRg ничего не значит, выйдите из Sub
J = 0
K = 0
Установите xCol = Новая коллекция
Для каждой xCell в xRg
On Error Resume Next
xCol.Добавить xCell, xCell.Text
Если Номер Ошибки = 457 Тогда
Установить xCellPre = xCol(xCell.Text)
Если xCellPre.Interior.ColorIndex = xlNone Тогда
xCellPre.Interior.Color = RGB(255, J, K)
xCell.Interior.Color = RGB(255, J, K)
Если K + xCLR <= 255 Тогда
К = К + хCLR
Еще
Если J + xCLR <= 255 Тогда
K = 0
J = J + xCLR
Еще
MsgBox "!Demasiados datos duplicados!: Reducir переменная xCLR", vbCritical, "Ошибка"
Exit Sub
End If
End If
Еще
xCell.Interior.Color = xCellPre.Interior.Color
End If
ElseIf Err.Number = 9 Тогда
MsgBox "Дублирование повторяющихся данных!", vbCritical, "Ошибка"
Exit Sub
End If
По ошибке GoTo 0
Далее

End Sub

Es ип тема viejo, pero lo dejo por si alguien lo necesita. Con el código anterior y modificando la variable "xCLR", от 1 до 255, можно получить от 4 до 65.000 255 различных цветов. En mi caso, configuré el rojo del RGB con un valor estático de 255 y vario los valores verde y azul (166, X, X). Si se requieren mas colores, se podría alterar el valor del rojo, logrando mas de XNUMXmillones de colores diferentes

та же проблема, которую я пытаюсь использовать с парой сотен ячеек, и она очень быстро окрашивается в одни и те же цвета. Это можно как-то исправить? спасибо

Замена на If xCIndex > 55 Then xCIndex = 3 Else xCIndex = xCIndex + 1 End If не работает. Попытка заставить это работать на 14000 строк, примерно 6000 дубликатов

У меня это сработало, я сделал отступ во второй и четвертой строках. Смотри ниже. Код Джоша выделен жирным шрифтом.

Если Номер Ошибки = 457 Тогда
Если xCIndex > 55 Тогда
хCИндекс = 3
Еще
хСИндекс = хСИндекс + 1
End If
Установить xCellPre = xCol(xCell.Text)

Большое спасибо, Джош, это работает!

Это сработало ИДЕАЛЬНО!! Спасибо. Я сходил с ума, пытаясь найти решение. Ценить вас.

Заменить строку: Set xRg = Application.InputBox («пожалуйста, выберите диапазон данных:», «Kutools for Excel», xTxt, , , , , 8)
в
Установить xRg = диапазон ("A1: A100")

или если у вас есть таблица, которую вы можете применить ко всему столбцу таблицы:
Установить xRg = Range("Таблица1[[#Все],[Столбец1]]")

просто замените Table1 на свое имя и Column1 на любой заголовок таблицы, к которому вы хотите применить этот макрос.


С уважением
Войцех

Кажется, что он всегда использует одну и ту же цветовую палитру, но есть ли способ выбрать используемую палитру? Это дает мне действительно темные цвета, через которые текст не читается.

Вот именно этого я и хочу. Большое спасибо, скайян.

как я могу выделить диапазон строк?

Удивительно!! Это мне очень помогло!
А если мне нужно выделить и одиночные? Как я могу это сделать?

Да скайян! Ты жжешь! 😀
Можем ли мы выделить всю строку, а не только столбец?

Извините, если раздражаю, но вы мне очень помогли!

Извините, я не могу 😟
Я думаю, что это неправильно, потому что код работает в столбце, и когда я выбираю строки, они подсвечиваются, но не соответствуют предыдущему критерию.

Код, которым вы поделились ранее, только для дубликатов, работает отлично.

Здравствуйте,
мой лист excel имеет 11000 строк данных.
как я могу расширить его, чтобы выделить все дубликаты в этом длинном столбце.

он остановился на 77-м ряду.

Благодаря,

AK