Удаление строк одного цвета

Ученик Гость	#1 25.02.2010 23:08:15 В таблице имеется n-е кол-во строк жёлтого цвета. Каким образом их можно удалить со смешением вверх

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 25.02.2010 23:13:16 Если заливка условным форматированием, то задача усложняется. Если нет - обычный макрос с этим справится.

Ученик Гость	#3 25.02.2010 23:14:46 Юрий М нигде не помечал, что тема закрытая, заливка без условного форматирования.

Ученик Гость	#4 25.02.2010 23:16:23 И где (как?) указать цвет?

Михаил С.

Пользователь

Сообщений: 10514 Регистрация: 21.12.2012

25.02.2010 23:16:47

{quote}{login=Юрий М}{date=25.02.2010 11:13}{thema=}{post}Если заливка условным форматированием, то задача усложняется. Если нет - обычный макрос с этим справится.{/post}{/quote}А почему с УФ задача усложниться? Разве нальзя искать (и удалить) строки по условию формата?

Ученик Гость	#6 25.02.2010 23:21:58 А можно увидеть пример кода на VBA, где задаётся условие удаления - цвет, пожалуйста.

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

25.02.2010 23:25:55

С пометкой я ошибся - не туда глянул Извиняюсь.
По вопросу: вот такой макрос удалит все строки в диапазоне строк 2:29, цвет заливки ячеек столбца А которых, соттветствует цвету заливки ячейки А1.
Sub ColorRowsDelete()
For i = 29 To 2 Step -1
If Cells(i, 1).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex Then
Rows(i).Delete
End If
Next
End Sub
Для Михаила. Я испытывал опрепделённые трудности, когд отслеживал заливку, выполненную при помощи УФ.

Ученик Гость	#8 25.02.2010 23:28:51 Спасибо, Юрий М., вы наверное устаёте помогать такому количеству людей, но делаете благородное дело.

Читают тему