Найти границу УФ по цвету с помощью VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Kreol

Дата: Среда, 16.01.2013, 18:29 | Сообщение № 1

Группа: Гости

Доброго времени суток.
Уже 2-й час брожу по инету так и не смог найти то, что нужно.
Задача:
Удалить дубликаты построчно если в ячейке рядом значение меньше
Яблоки 1
Яблоки 2
Слива 1

должно удалиться яблоки 1

почему-то пошел через УФ, и уже просто интересно как же все-таки это воплотить.
Есть диапазон с УФ отсортированный по цвету УФ. Цвет один любой.
Нужно с помощью VBA найти диапазон с УФ и удалить все строки.
перепробовал много вариантов, попытался даже так.
[vba]

Код

For i = 2 To Endd
If Cells(i, 4).Interior.Color = 5287936 Then
y = y + 1
End If
Next

[/vba]
но все равно ничего не получил.
через меню Найти - Показать - УФ выделяется весь диапазон который был подвержен УФ

Ответить

Pelena

Дата: Среда, 16.01.2013, 18:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Kreol, читаем Правила форума, регистрируемся, прикладываем файл с примером

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

nilem

Дата: Среда, 16.01.2013, 19:22 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Отсортировать от меньшего к большему по 2-му стобцу и Удалить дубликаты по 1-му столбцу
"...почему-то пошел через УФ..."
ч/з УФ ходить не надо smile

Яндекс.Деньги 4100159601573

Ответить

Kreol2013

Дата: Среда, 16.01.2013, 20:20 | Сообщение № 4

Группа: Удаленные

да действительно, все оказалось очень просто. Начитался я лишнего. Спасибо.

Ответить

Kreol2013

Дата: Среда, 16.01.2013, 21:42 | Сообщение № 5

Группа: Удаленные

однако.
Вот пример.
Нужно удалить программно ячейки с УФ в столбце 5 либо вообще все с УФ.

К сообщению приложен файл: 5119207.xls (27.5 Kb)

Ответить

RAN

Дата: Среда, 16.01.2013, 21:50 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub qqq()
With Columns(5)
.Cells.SpecialCells(xlCellTypeAllFormatConditions).Clear
End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Kreol2013

Дата: Среда, 16.01.2013, 22:30 | Сообщение № 7

Группа: Удаленные

RAN, ну так оно удалит весь столбец, так как уФ применяется ко всем столбцам и строкам.
Под словами удалять ВСЕ, имелось ввиду то что выделено цветом во всех столбцах

Сообщение отредактировал Kreol2013 - Среда, 16.01.2013, 22:39

Ответить

RAN

Дата: Среда, 16.01.2013, 23:02 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

"Нужно удалить программно ячейки с УФ в столбце 5 либо вообще все с УФ" <> "имелось ввиду то что выделено цветом во всех столбцах"

А то, что выделено, в макросе определяется не цветом заливки, а проверкой выполнения УФ для данной ячейки. Гемор еще тот.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 16.01.2013, 23:15

Ответить

Kreol2013

Дата: Среда, 16.01.2013, 23:18 | Сообщение № 9

Группа: Удаленные

а есть способ более легкий? для решения данной задачи программными средствами?.

Ответить

Kreol2013

Дата: Четверг, 17.01.2013, 01:36 | Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Массовый ВПР?

Ответить

nilem

Дата: Четверг, 17.01.2013, 11:25 | Сообщение № 11

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

вариант массового ВПР smile

[vba]

Код

Sub ertert()
Dim x, i&, j&, ubx&
x = Range("A1").CurrentRegion.Value: ubx = UBound(x, 2)
With CreateObject("Scripting.Dictionary")
     .CompareMode = 1
     For i = 1 To UBound(x)
         For j = 1 To ubx - 1
             .Item(x(i, j)) = Empty
         Next j
     Next i
     For i = 1 To UBound(x)
         If .Exists(x(i, ubx)) Then x(i, ubx) = Empty
     Next i
End With
Range("A1").CurrentRegion.Value = x
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Найти границу УФ по цвету с помощью VBA

Страница 1 из 1
1