Всем добрый день, на работе понадобилось написать макрос который будет удалять строки с объединёнными ячейками. Постараюсь объяснить как мне нужно построить макрос: начиная со строки №4, если в строке ячейки с "A" до "H" обеднены, то данную строку необходимо удалить (строки №4, №6 и №15).
P.s. цвет не является критерием. изначально Таблица содержит около 5000 строк и таких строк с объединёнными ячейками там очень много, поэтому сделал выборку первых 25 строк.
Очень надеюсь на вашу помощь. Я только начинаю знакомиться с макросом и для меня ещё не понятен алгоритм написания программ.
Спасибо
Всем добрый день, на работе понадобилось написать макрос который будет удалять строки с объединёнными ячейками. Постараюсь объяснить как мне нужно построить макрос: начиная со строки №4, если в строке ячейки с "A" до "H" обеднены, то данную строку необходимо удалить (строки №4, №6 и №15).
P.s. цвет не является критерием. изначально Таблица содержит около 5000 строк и таких строк с объединёнными ячейками там очень много, поэтому сделал выборку первых 25 строк.
Очень надеюсь на вашу помощь. Я только начинаю знакомиться с макросом и для меня ещё не понятен алгоритм написания программ.
Добрый день. Тут можно попроще (не искать объединения). Судя по исходным данным столбец B (C,D...H) в нужной строке всегда пуст. Поэтому предлагаю такой вариант [vba]
Код
Sub ttt() For x = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 If Cells(x, 2).Value = "" Then Rows(x).Delete Next x End Sub
[/vba]
Добрый день. Тут можно попроще (не искать объединения). Судя по исходным данным столбец B (C,D...H) в нужной строке всегда пуст. Поэтому предлагаю такой вариант [vba]
Код
Sub ttt() For x = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 If Cells(x, 2).Value = "" Then Rows(x).Delete Next x End Sub
спасибо большое за помощь. всё сработало. так как я только начинаю пробовать работать с макросами: 1. не могли бы Вы "на пальцах" объяснить алгоритм работы приведёнными вами примерами? 2. в приложенном файле, какой код написать чтобы он удалял все строчки начиная с строки №4 (включительно) до конца таблицы (в оригинальном варианте около 5000 строк), удалить строчки если в ячейках "D" данных нет. я читал, что нужно написать код, который начнёт работать с конца таблицы, но честно сказать не понимаю пока как это всё работает. как вы можете увидеть в макросе, там удаляются все строчки (в столбце D) в которых есть текст UNBW, ZSIM, UMBW и NBUW. наверно можно вместо слова добавить просто кавычки "", но я не знаю как указать диапазон строк и как сделать так что бы макрос начал работать снизу вверх иначе после окончания таблицы там везде пустые ячейки и все к чёрту зависнет.
Спасибо заранее
спасибо большое за помощь. всё сработало. так как я только начинаю пробовать работать с макросами: 1. не могли бы Вы "на пальцах" объяснить алгоритм работы приведёнными вами примерами? 2. в приложенном файле, какой код написать чтобы он удалял все строчки начиная с строки №4 (включительно) до конца таблицы (в оригинальном варианте около 5000 строк), удалить строчки если в ячейках "D" данных нет. я читал, что нужно написать код, который начнёт работать с конца таблицы, но честно сказать не понимаю пока как это всё работает. как вы можете увидеть в макросе, там удаляются все строчки (в столбце D) в которых есть текст UNBW, ZSIM, UMBW и NBUW. наверно можно вместо слова добавить просто кавычки "", но я не знаю как указать диапазон строк и как сделать так что бы макрос начал работать снизу вверх иначе после окончания таблицы там везде пустые ячейки и все к чёрту зависнет.
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
