Удаление строк по условию

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Удаление строк по условию (Макросы/Sub)

Xaden

Дата: Вторник, 18.08.2015, 10:53 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день.
Возник еще вопрос
[vba]

Код

.ActiveSheet.Range("G9", Cells.Find("0,0%").Offset(-1)).EntireRow.Delete

[/vba]

Данным кодом, пытаюсь в столбце G найти все значения равные 0,0% выделить эти строки и удалить их, но натыкаюсь на отказ макроса.
Подскажите люди добрые в чем проблема?

Заранее благодарю.

Ответить

miver

Дата: Вторник, 18.08.2015, 11:10 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Xaden, Выложите файл

Ответить

Manyasha

Дата: Вторник, 18.08.2015, 11:41 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Xaden,

Цитата Xaden, 18.08.2015 в 10:53, в сообщении № 1

найти все значения равные 0,0% выделить эти строки и удалить их

не поняла зачем Вам offset
попробуйте так:
[vba]

Код

     On Error Resume Next
      Do
          Err.Clear
          Columns("g:g").Find("0.0%", , xlValues, xlWhole).EntireRow.Delete
      Loop While Err.Number = 0
      On Error GoTo 0

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Xaden

Дата: Вторник, 18.08.2015, 11:53 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Manyasha, Спасибо огромное, Ваш вариант мне очень даже помог и хорошо вписался во весь мой простенький код.

Ответить

Удаление строк по условию (Макросы/Sub)

Страница 1 из 1
1