Здравствуйте !
Подскажите, пожалуйста, не могу никак разобраться в этой магии ...
Есть таблица.
Макрос останавливается на удалении отфильтрованных строк по значению "Да" в одном столбце, выдавая сообщение "Команда не применима для перекрывающихся диапазонов". Объединённых ячеек в разделе ленты "Выравнивание" нет (ведь если бы были, то была бы активна строка "Объединить ... )
Если перед запуском макроса вручную "отменяю объединение ячеек" в столбце, то макрос работает.
Если прописываю в макросе Columns("R:R").UnMerge (на тот момент колонка идёт под буквой R) в начале макроса, или Columns("D:D").UnMerge перед непосредственной фильтрацией столбца — то макрос срабатывает только ОДИН ПЕРВЫЙ раз. Последующие разы удалять отфильтрованные строки не хочет.
Как только вручную перед работой макроса отменяю "объединение ячеек" в столбце — макрос работает.
Что неправильно ? Как так может быть ?
Подскажите, пожалуйста, не могу никак разобраться в этой магии ...
Есть таблица.
Макрос останавливается на удалении отфильтрованных строк по значению "Да" в одном столбце, выдавая сообщение "Команда не применима для перекрывающихся диапазонов". Объединённых ячеек в разделе ленты "Выравнивание" нет (ведь если бы были, то была бы активна строка "Объединить ... )
Если перед запуском макроса вручную "отменяю объединение ячеек" в столбце, то макрос работает.
Если прописываю в макросе Columns("R:R").UnMerge (на тот момент колонка идёт под буквой R) в начале макроса, или Columns("D:D").UnMerge перед непосредственной фильтрацией столбца — то макрос срабатывает только ОДИН ПЕРВЫЙ раз. Последующие разы удалять отфильтрованные строки не хочет.
Как только вручную перед работой макроса отменяю "объединение ячеек" в столбце — макрос работает.
Что неправильно ? Как так может быть ?
| Код |
|---|
.................
Range("D3").AutoFilter Field:=4, Criteria1:="Да" ' Показывает строки в колонке 4, где есть "Да"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete ' Удаляет эти строки, начиная со второй строки
.............
|
Изменено: - 09.07.2024 12:40:54
