Удалить строки в которых одни ноли.
Mark1976
Дата: Четверг, 28.07.2016, 20:40 |
Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 754
Репутация:
3
±
Замечаний:
0% ±
Excel 2010, 2013
Всем привет. Есть таблица, которая имеет несколько тысяч строк, и имеет 4 столбца. Как мне удалить те строки, в которых стоят одни ноли?. Но не трогая те строки в которых имеются цифры отличные от ноля. Фильтром это не получится сделать. Помогите.
Всем привет. Есть таблица, которая имеет несколько тысяч строк, и имеет 4 столбца. Как мне удалить те строки, в которых стоят одни ноли?. Но не трогая те строки в которых имеются цифры отличные от ноля. Фильтром это не получится сделать. Помогите. Mark1976
Ответить
Сообщение Всем привет. Есть таблица, которая имеет несколько тысяч строк, и имеет 4 столбца. Как мне удалить те строки, в которых стоят одни ноли?. Но не трогая те строки в которых имеются цифры отличные от ноля. Фильтром это не получится сделать. Помогите. Автор - Mark1976 Дата добавления - 28.07.2016 в 20:40
Nic70y
Дата: Четверг, 28.07.2016, 20:52 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация:
2356
±
Замечаний:
0% ±
Excel 2010
Фильтром это не получится
почему? ставьте фильтр на все нужные столбцы и фильтруйте каждый - останутся только нужные строки, их и удалить.
Фильтром это не получится
почему? ставьте фильтр на все нужные столбцы и фильтруйте каждый - останутся только нужные строки, их и удалить.Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Фильтром это не получится
почему? ставьте фильтр на все нужные столбцы и фильтруйте каждый - останутся только нужные строки, их и удалить.Автор - Nic70y Дата добавления - 28.07.2016 в 20:52
Pelena
Дата: Четверг, 28.07.2016, 21:07 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19373
Репутация:
4531
±
Замечаний:
±
Excel 365 & Mac Excel
Здравствуйте. В доп. столбец формулу массива фильтр по значению ИСТИНА -- удалить строки или и фильтр по значению 0
Здравствуйте. В доп. столбец формулу массива фильтр по значению ИСТИНА -- удалить строки или и фильтр по значению 0 Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Здравствуйте. В доп. столбец формулу массива фильтр по значению ИСТИНА -- удалить строки или и фильтр по значению 0 Автор - Pelena Дата добавления - 28.07.2016 в 21:07
_Boroda_
Дата: Четверг, 28.07.2016, 21:11 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Или в соседний столбец формулу массива (вводится одновременным нажатием Контрл Шифт Ентер) и фильтр по ИСТИНА Или обычная формула и фильтруете четверки
Или в соседний столбец формулу массива (вводится одновременным нажатием Контрл Шифт Ентер) и фильтр по ИСТИНА Или обычная формула и фильтруете четверки _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Или в соседний столбец формулу массива (вводится одновременным нажатием Контрл Шифт Ентер) и фильтр по ИСТИНА Или обычная формула и фильтруете четверки Автор - _Boroda_ Дата добавления - 28.07.2016 в 21:11
sv2014
Дата: Четверг, 28.07.2016, 21:23 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Mark1976 , добрый вечер,вариант макроса,кнопки test и повтор [vba]Код
Sub test() Dim z, i&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value For i = UBound(z) To 1 Step -1 If z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5) = 0 Then Rows(i + 1).Delete Next End Sub
[/vba]
Mark1976 , добрый вечер,вариант макроса,кнопки test и повтор [vba]Код
Sub test() Dim z, i&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value For i = UBound(z) To 1 Step -1 If z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5) = 0 Then Rows(i + 1).Delete Next End Sub
[/vba]sv2014
Ответить
Сообщение Mark1976 , добрый вечер,вариант макроса,кнопки test и повтор [vba]Код
Sub test() Dim z, i&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value For i = UBound(z) To 1 Step -1 If z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5) = 0 Then Rows(i + 1).Delete Next End Sub
[/vba]Автор - sv2014 Дата добавления - 28.07.2016 в 21:23
Mark1976
Дата: Четверг, 28.07.2016, 21:37 |
Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 754
Репутация:
3
±
Замечаний:
0% ±
Excel 2010, 2013
Всем спасибо за помощь.
Ответить
Сообщение Всем спасибо за помощь. Автор - Mark1976 Дата добавления - 28.07.2016 в 21:37
Mark1976
Дата: Суббота, 06.08.2016, 22:52 |
Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 754
Репутация:
3
±
Замечаний:
0% ±
Excel 2010, 2013
Здравствуйте. Скажите как в макросе, изменить диапазон, для удаления нолей. [vba]Код
Sub test() Dim z, i&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value For i = UBound(z) To 1 Step -1 If z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5) = 0 Then Rows(i + 1).Delete Next End Sub
[/vba]
Здравствуйте. Скажите как в макросе, изменить диапазон, для удаления нолей. [vba]Код
Sub test() Dim z, i&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value For i = UBound(z) To 1 Step -1 If z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5) = 0 Then Rows(i + 1).Delete Next End Sub
[/vba] Mark1976
Ответить
Сообщение Здравствуйте. Скажите как в макросе, изменить диапазон, для удаления нолей. [vba]Код
Sub test() Dim z, i&: z = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Value For i = UBound(z) To 1 Step -1 If z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5) = 0 Then Rows(i + 1).Delete Next End Sub
[/vba] Автор - Mark1976 Дата добавления - 06.08.2016 в 22:52
_Boroda_
Дата: Суббота, 06.08.2016, 23:04 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Диапазон столбцов вот здесь (с ячейки А2) [vba][/vba] Последнюю строку макрос считает той, где в столбце А что-то написано: [vba]Код
Range("A" & Rows.Count).End(xlUp).Row
[/vba] Проверка нулей идет по столбцам В,C,D,E (2,3,4,5 столбцы): [vba]Код
z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5)
[/vba]
Диапазон столбцов вот здесь (с ячейки А2) [vba][/vba] Последнюю строку макрос считает той, где в столбце А что-то написано: [vba]Код
Range("A" & Rows.Count).End(xlUp).Row
[/vba] Проверка нулей идет по столбцам В,C,D,E (2,3,4,5 столбцы): [vba]Код
z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5)
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Диапазон столбцов вот здесь (с ячейки А2) [vba][/vba] Последнюю строку макрос считает той, где в столбце А что-то написано: [vba]Код
Range("A" & Rows.Count).End(xlUp).Row
[/vba] Проверка нулей идет по столбцам В,C,D,E (2,3,4,5 столбцы): [vba]Код
z(i, 2) = 0 And z(i, 3) = 0 And z(i, 4) = 0 And z(i, 5)
[/vba] Автор - _Boroda_ Дата добавления - 06.08.2016 в 23:04
Mark1976
Дата: Воскресенье, 07.08.2016, 18:10 |
Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 754
Репутация:
3
±
Замечаний:
0% ±
Excel 2010, 2013
_Boroda_, спасибо. Буду разбираться.
_Boroda_, спасибо. Буду разбираться. Mark1976
Ответить
Сообщение _Boroda_, спасибо. Буду разбираться. Автор - Mark1976 Дата добавления - 07.08.2016 в 18:10