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

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

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

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

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

и удаляю их

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


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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.02.2011, 23:47
    #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
15.02.2011, 08:29
    #37116209
komar73
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление строк с плюсовым значением ячейки
AndreTM,

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


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