Удалить строки, констркуция for each cell in selection

@voidex · Регистрация: 05.07.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте есть макрос(также прикрепил файл для примера):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
 Sub delete_yellow()
Dim cell As Range
 ActiveSheet.UsedRange.Select
 
For Each cell In Selection
    If cell.Interior.Color = 65535 Then
       cell.Select
Selection.EntireRow.Delete
    End If
Next
End Sub

При удалении строки, "счетчик" для selection не обновляется, в итоге в колонке C, остаются "желтые" строки.
Если добавить ActiveSheet.UsedRange.Selec в цикл for each - next, не помогает.
Поэтому приходится использовать еще раз цикл for each - next и если найдены желтые ячейки, то прогонять макрос повторно, что не очень удобно.
Как можно это поправить, не меняя конструкцию.
Спасибо

пс. Можно конечно посчитать кол-во строк и использовать цикл for i=1 to n, выделять строку целиком, смотреть есть ли желтые ячейки, если есть, удалить ее и отнять от счетчика -1. Но так не интересно и наверное будет медленнее

@Hugo121 · 28.07.2014, 10:54

Используйте цикл for i=n to 1 step -1
Это обычное дело при удалении строк - Вы ведь их удаляете, и они сдвигаются!

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	28.07.2014, 10:54
	Сообщение было отмечено voidex как решение Решение Используйте цикл for i=n to 1 step -1 Это обычное дело при удалении строк - Вы ведь их удаляете, и они сдвигаются! 1

Удалить строки, констркуция for each cell in selection

Решение