Удаление строк....Selection.Delete Shift:=xlUp.....

[sonata]

Selection.Delete Shift:=xlUp
Могут ли здесь быть другие данные?
И еще проблема с циклом при удалении строчек,
Как она решается?
Мне надо удалить пустые строчки....

Код: Выделить всё

Public Sub Row_delete()
For i = 10 To 1000
If (Cells(i, 1).Value = "") Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
End If
Next
End Sub

[alibek]

И еще проблема с циклом при удалении строчек,

Код: Выделить всё

Public Sub Row_delete()
For i = 10 To 1000
If (Cells(i, 1).Value = "") Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    [color=red]i = i - 1[/color]
End If
Next
End Sub

полагаю, так?

[sonata]

Ок!Только он получается зацикленным....

[GSerg]

Во-первых, правда ли, что пустой считается та строка, у которой пустая первая ячейка?
Во-вторых...

Код: Выделить всё

function DeleteBlankRows(r as excel.range) as long
  dim i as excel.range
  for each i in r.rows
    if i.cells(1,1)=vbnullstring then i.delete xlup:DeleteBlankRows=DeleteBlankRows+1
  next
end function


[GSerg]

Alibek, разве компилятор позволит уменьшить переменную цикла i? в Обычнов VB это нельзя делать. Не думаю, что в VBA можно!

Откуда ты взял что нельзя уменьшить самую обычную переменную


Вот редиска, взял и удалил свой пост, пока я ответ писал.

[Vitaly1]

For i = 10 To 1000
If (Cells(i, 1).Value = "") Then
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next

Строка i = i - 1 лишняя, да и зацикливание может быть в некоторых ситуациях, так будет работать быстрее и не зациклица:

Код: Выделить всё

For i = 1000 To 10 step -1
If (Cells(i, 1).Value = "") Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp 
End If
Next

А можно еще во это

Код: Выделить всё

Rows(i).Select
    Selection.Delete Shift:=xlUp 

На это заменить

Код: Выделить всё

Rows(i).Delete Shift:=xlUp 

[Vitaly1]

Откуда ты взял что нельзя уменьшить самую обычную переменную

Не обычную, а переменную цикла уменьшить самому внутри цикла. Компилятор Delphi, например, не позволяет этого делать. Помойму, VB тоже не позволяет, VBA позволяет, проверил.

[GSerg]

Компилятор Delphi нам не указ

[Vitaly1]

Ок!Только он получается зацикленным....

совершенно верно, в примере Alibek такое может быть, зри мой пример выше.

[Vitaly1]

Компилятор Delphi нам не указ

Ну это понятно . Только лучше все-же не уменьшать самому переменную цикла For, а то зацикливание может произойти

[corgi]

я бы так сделал

Код: Выделить всё

Public Sub Row_delete()
Dim n As Long, i As Long
n = 50: i = 1
Do While i < n
    If (Cells(i, 1).Value = "") Then
        Rows(i).Delete Shift:=xlUp
        i = i - 1: n = n - 1
    End If
    i = i + 1
Loop
End Sub


[Romanaerl]

А не проще цикл от обратного сделать?

Я у себя удаляю снизу вверх -

For i=100 to 1
IF Cells(i,1).Value=" "
Rows(i).Delete
END IF
next i

[Romanaerl]

А еще можно так:

Код: Выделить всё

    g = 1
    z = 1000
    For i = 1 To z
        If Cells(g, 1).Value = "" Then
            Rows(g).Delete
        Else
            g = g + 1
        End If
    Next i


[corgi]

2Romanaerl а ты запускать пробовал когда пустые 3-4 строки
зы в первом посте нод еще КАК МИНИМУМ дописать step -1

[Romanaerl]

С первым постом - лажанулся - каюсь...

Но вот второй использую в своем прайсе...

[Георгий]

Откуда ты взял что нельзя уменьшить самую обычную переменную

Компилятор Delphi, например, не позволяет этого делать...

Да ну...? Прям совсем не позволяет?