Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как автоматически убрать строки, если в ячейке "0"? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как автоматически убрать строки, если в ячейке "0"? (Формулы/Formulas)
Как автоматически убрать строки, если в ячейке "0"?
mefisto Дата: Четверг, 09.11.2017, 17:50 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 102
Репутация: 0 ±
Замечаний: 20% ±

И еще один вопрос к знатокам)).

Есть большой массив данных.
Он по ссылкам переносится на другой лист. Для упрощения в примере на одном листе и не много данных.
Есть значения в столбике F.
Можно-ли сделать так, что если значение "0" как в F26, то строки с 26 по 35 включительно удаляются?
Другими словами, удаляется десять строк начиная со строки в которой по F значение ноль.
А там где значение не ноль, то строки остаются.
И чтоб не скрывались строки, а именно удалялись, а в идеале еще и сдвигались, чтоб не было больших пробелов с чистыми строками.
Объясню почему чтоб не скрывались, а удалялись. Нужно получившийся массив копировать в другое место. А если строки будут скрыты, то они всеравно скопируются.
Как-то так.
Заранее спасибо большое!!!
Сколько раз помогали, что не успеваю репутацию поднимать тем кто помог (можно только один раз в сутки))).
Приятного всем вечера.
К сообщению приложен файл: primer222.xls(22Kb)
 
Ответить
СообщениеИ еще один вопрос к знатокам)).

Есть большой массив данных.
Он по ссылкам переносится на другой лист. Для упрощения в примере на одном листе и не много данных.
Есть значения в столбике F.
Можно-ли сделать так, что если значение "0" как в F26, то строки с 26 по 35 включительно удаляются?
Другими словами, удаляется десять строк начиная со строки в которой по F значение ноль.
А там где значение не ноль, то строки остаются.
И чтоб не скрывались строки, а именно удалялись, а в идеале еще и сдвигались, чтоб не было больших пробелов с чистыми строками.
Объясню почему чтоб не скрывались, а удалялись. Нужно получившийся массив копировать в другое место. А если строки будут скрыты, то они всеравно скопируются.
Как-то так.
Заранее спасибо большое!!!
Сколько раз помогали, что не успеваю репутацию поднимать тем кто помог (можно только один раз в сутки))).
Приятного всем вечера.

Автор - mefisto
Дата добавления - 09.11.2017 в 17:50
Wasilich Дата: Четверг, 09.11.2017, 19:31 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 320 ±
Замечаний: 0% ±

2003
Ваша задача для ветки "Вопросы по VBA". Строки удалить можно только с помощью макроса. Предложенный макрос написан на предоставленном примере.
Проверяйте. Осторожно, в отдельном файле. Вдруг чё не так. :D
[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]


Сообщение отредактировал Wasilich - Четверг, 09.11.2017, 19:42
 
Ответить
СообщениеВаша задача для ветки "Вопросы по VBA". Строки удалить можно только с помощью макроса. Предложенный макрос написан на предоставленном примере.
Проверяйте. Осторожно, в отдельном файле. Вдруг чё не так. :D
[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]

Автор - Wasilich
Дата добавления - 09.11.2017 в 19:31
mefisto Дата: Пятница, 10.11.2017, 04:44 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 102
Репутация: 0 ±
Замечаний: 20% ±

излишнее цитирование удалено

Спасибо, буду "ковырять".
Надеюсь справлюсь.
 
Ответить
Сообщениеизлишнее цитирование удалено

Спасибо, буду "ковырять".
Надеюсь справлюсь.

Автор - mefisto
Дата добавления - 10.11.2017 в 04:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как автоматически убрать строки, если в ячейке "0"? (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!