Есть большой массив данных. Он по ссылкам переносится на другой лист. Для упрощения в примере на одном листе и не много данных. Есть значения в столбике F. Можно-ли сделать так, что если значение "0" как в F26, то строки с 26 по 35 включительно удаляются? Другими словами, удаляется десять строк начиная со строки в которой по F значение ноль. А там где значение не ноль, то строки остаются. И чтоб не скрывались строки, а именно удалялись, а в идеале еще и сдвигались, чтоб не было больших пробелов с чистыми строками. Объясню почему чтоб не скрывались, а удалялись. Нужно получившийся массив копировать в другое место. А если строки будут скрыты, то они всеравно скопируются. Как-то так. Заранее спасибо большое!!! Сколько раз помогали, что не успеваю репутацию поднимать тем кто помог (можно только один раз в сутки))). Приятного всем вечера.
И еще один вопрос к знатокам)).
Есть большой массив данных. Он по ссылкам переносится на другой лист. Для упрощения в примере на одном листе и не много данных. Есть значения в столбике F. Можно-ли сделать так, что если значение "0" как в F26, то строки с 26 по 35 включительно удаляются? Другими словами, удаляется десять строк начиная со строки в которой по F значение ноль. А там где значение не ноль, то строки остаются. И чтоб не скрывались строки, а именно удалялись, а в идеале еще и сдвигались, чтоб не было больших пробелов с чистыми строками. Объясню почему чтоб не скрывались, а удалялись. Нужно получившийся массив копировать в другое место. А если строки будут скрыты, то они всеравно скопируются. Как-то так. Заранее спасибо большое!!! Сколько раз помогали, что не успеваю репутацию поднимать тем кто помог (можно только один раз в сутки))). Приятного всем вечера.mefisto
Ваша задача для ветки "Вопросы по VBA". Строки удалить можно только с помощью макроса. Предложенный макрос написан на предоставленном примере. Проверяйте. Осторожно, в отдельном файле. Вдруг чё не так.
Sub wwww()
ps = Range("C" & Rows.Count).End(xlUp).Row + 1 For i = ps To1Step -10 If i < 10ThenExitFor If Cells(i - 10, "F") = 0Then
sn = i - 10
sk = i - 1
Rows(sn & ":" & sk).Delete EndIf Next EndSub
Ваша задача для ветки "Вопросы по VBA". Строки удалить можно только с помощью макроса. Предложенный макрос написан на предоставленном примере. Проверяйте. Осторожно, в отдельном файле. Вдруг чё не так.
Sub wwww()
ps = Range("C" & Rows.Count).End(xlUp).Row + 1 For i = ps To1Step -10 If i < 10ThenExitFor If Cells(i - 10, "F") = 0Then
sn = i - 10
sk = i - 1
Rows(sn & ":" & sk).Delete EndIf Next EndSub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
