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

[Zelenaya]

Всем добрый день. Немного запутался. Вопрос в следующем.
У меня есть таблица, размером допустим в 100 строк. Из них штук 8 заполненых, остальные нужно удалить. Что делаю я

ActiveCell.SpecialCells(xlLastCell) .Select
Last = ActiveCell.Row
Set Rng = Nothing
For i2 = 9 To Last
If CurWks.Cells.Item(i2, 2 + NewForm) = "" Then
Set Rng = Union(Rng, CurWks.Rows(i2))
End If
Next i2
Rng.Select
Selection.EntireRow.Delete

где CurWks это текущий лист.
Проблема в строчке 'Set Rng = Union(Rng, CurWks.Rows(i2)), говорит Ivalid Procedure call, что я делаю не так?

Ну и для моего понимания.

for i = 1 to 100
..
rows(i).delete
..
next i

Если у меня есть цикл, где i меняется от 1 до 100, которым я перебираю номер строк в листе, то при удалении строки rows(i).delete, следующая строка не будет проверена в цикле, ведь i=i+1, соот-но книга сократится и общее кол-во строк станет на 1 меньше? Каким способом тогда проще всего удалять ненужные даные в книге?

[SAS888]

Sub qq()
    Application.ScreenUpdating = False
    For i2 = CurWks.Cells(Rows.Count, 2 + NewForm).End(xlUp).Row To 9 Step -1
        If CurWks.Cells(i2, 2 + NewForm) = "" Then CurWks.Rows(i2).Delete
    Next
End Sub

Но можно обойтись и без цикла:

On Error Resume Next
Intersect(CurWks.Rows("9:" & Rows.Count), CurWks.Columns(2 + NewForm).SpecialCells(xlCellTypeBlanks).EntireRow).Delete
On Error GoTo 0

[Zelenaya]

Ух ты, круто. Буду смотреть ближе к вечеру, спосибо!

[Zelenaya]

не могу понять чем это
For i2 = CurWks.Cells(Rows.Count, 2 + NewForm).End(xlUp).Row To 9 Step -1
отличается от допустим этого
For i2 = CurWks.Rows.Count to 9 Step - 1

В частности не понятно End(xlUp).Row, что это?
Я с этим сталкивался, когда на просторах нашел что то типа Rows(х).Delete Shift:=xlUp, как то так. Но нигде нет объяснения о том, что такое Shift и xlUp

Заранее спосибо!

[DiemonStar]

CurWks.Rows.Count

выдаст количество строк в области CurWks

CurWks.Cells(Rows.Count, 2 + NewForm).End(xlUp).Row

выдаст номер последней заполненной строки в столбце 2 + NewForm из той же области. Т.е. если в вашей области 50 строк, последние 10 из которых пустые, то в первом случае будет цикл от 50 до 9, а во втором - от 40 до 9. Зачем считать больше?

[Zelenaya]

Понятно, спасибо! единственное что смущает теперь, это xlUp.

[DiemonStar]

Сообщение от Zelenaya

Понятно, спасибо! единственное что смущает теперь, это xlUp.

обычная константа (можно с тем же успехом на целочисленный эквивалент поменять = -4162). Указывает направление поиска ячейки со значением.
В справке очень неплохо об этом написано.