Как правильно удалить пустую строку ??

[Legachoff]

Код не работает

Sub delrow()
Dim r As Variant
For r = 2 To 15
If ActiveSheet.Cells(r, 1) = Empty Then
Rows(r).Delete
r = r - 1
End If
Next r
End Sub

http://wikiatlas.ru/
http://wikiatlas.org.ua/
http://wikikak.org/
http://text-books.ru/

[GSerg]

dim r as long
for r=15 to 2 step -1
if isempty(cells(r,1).value) then rows(r).delete
next

[Legachoff]

Спасибо, я малёхо протупил. Всё работает.

[Legachoff]

GSerg
ещё вопрос, а если строки не пустые а содержать формулу тогда как быть ??

[GSerg]

if len(.value)=0

[alibek]

Лучше не .Value проверять, а .FormulaR1C1.

[GSerg]

Если в ячейке формула, возвращающая пустую строку, то FormulaR1C1 будет непусто, а value пусто...

[alibek]

Я понял его наоборот
Что в ячейке может быть формула, но возвращать Empty, а ее надо определить.

[Legachoff]

Ещё можно сделать так:

Dim r As Variant
For r = "значение" To "значение" Step -1
If Not IsNumeric(Cells(r, 1).Value) Then Rows(r).Delete
Next r

[brigval]

Код не работает

Sub delrow()
Dim r As Variant
For r = 2 To 15
If ActiveSheet.Cells(r, 1) = Empty Then
Rows(r).Delete
r = r - 1
End If
Next r
End Sub

If ActiveSheet.Rows(r).Text="" Then ActiveSheet.Rows(r).Delete
если строка не пустая, возвращается Null
Работает не только для строк но и для любых Range.

[Franck]

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

Range("myRange").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Устарело, но может кому пригодится.

[GSerg]

Franck
http://bbs.vbstreets.ru/viewtopic.php?p=159812#159812

[Franck]

GSerg
Типа прикольная ссылка.
В смысле, Вы не то скопировали.

[GSerg]

Нет, я скопировал именно то...
Там, по ссылке, написано, что если в ячейке формула, которая возвращает пустое значение, то ячейка пустой не является. В частности, она не будет найдена через SpecialCells(xlCellTypeBlanks).

[Franck]

Упсс.. Был невнимателен, каюсь.