powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление строк с плюсовым значением ячейки
8 сообщений из 8, страница 1 из 1
Удаление строк с плюсовым значением ячейки
    #37113677
komar73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите пожалуйста как мне удалить строки в которых значение ячейки (В:Х) больше или равно 0
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37113880
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
komar73,

приложенный файл не смотрел,
но такое делаю следующим образом
добавляю столбец и прописываю в нем формулу. В твоем случае =ЕСЛИ(B1>0;1;0)

протягиваю формулу по всем строкам с данными

переустанавливаю автофильтр

фильтрую те строки которые нужно удалить

и удаляю их

удаляю дополнительный столбец
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37114011
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбоносдобавляю столбец и прописываю в нем формулу. В твоем случае =ЕСЛИ(B1>0;1;0)
=(B1>=0)
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37114301
komar73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за подсказку но мне нужно чтобы это все было в виде макроса.
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37114610
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: komar73
> Спасибо за подсказку но мне нужно чтобы это все было в виде макроса.


Ну так в чем проблема? Давай свой код, а мы покритикуем и подправим, если будет нужно :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37116002
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну да, чего в файл заглядывать
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub УдалениеСтрок()
    i = ActiveSheet.UsedRange.Rows.Count
    Do While i >  0 
        If Cells(i,  2 ).Value >=  0  Then Rows(i).Delete
        i = i -  1 
    Loop
End Sub
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37116209
komar73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTM,

Спасибо! Запустил макрос но он работает бесконечно, как его остановить?
...
Рейтинг: 0 / 0
Удаление строк с плюсовым значением ячейки
    #37116236
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А на ваш код все - таки можно взглянуть ?
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление строк с плюсовым значением ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]