Удаление строки

Пользователь

Сообщений: 59 Регистрация: 01.01.1970

26.04.2010 21:18:36

Добрый вечер! надо чтобы макрос удалял строки если в 9 столбце, в строках с 15 по 200 значение равно "0"
Т.е. Если в ячейке "i" значение "0" то вся строка удаляется
почемуто не получается( исправьте плиз

Dim i As Long
For i = 15 To 200
If Cells(i, 9).Value = "0" Then
Rows("i:9").Delete Shift:=xlUp
End If

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

26.04.2010 21:23:07

правильно будет так:

Sub test()
Dim i As Long: Application.ScreenUpdating = False
For i = 200 To 15 Step -1
If Cells(i, 9).Value = "0" Then Rows(i).Delete
Next
End Sub

можно сделать без цикла - одной строкой кода,
но, не увидев вашего файла, сложно написать безошибочный код.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

(0_o) Пользователь Сообщений: 59 Регистрация: 01.01.1970	#3 26.04.2010 21:48:19 Спасибо! все работает!

Читают тему