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