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

[VictorM]

Ничего не понял, получается в коде для окна MsgBox нужно написать что делать с строкой?

Вызов MsgBox сделан для наглядности работы кода и вовсе не обязателен.
Рабочий код , в нашем случае удаление строки, пишется вместо MsgBox.

Sub DelNulRows3()
    With ThisWorkbook.Worksheets(1)
        For iRow& = 2750 To 1 Step -1
            iCount = Application.Count(Rows(iRow&))
            If iCount = 0 Then .Rows(iRow&).Delete
        Next
    End With
End Sub

[Franck]

Прошу прощения за археологию, но такие сложные пути подивили, не проще ли так?

Sub Удаление_пустых_строк () 
Range("myRange").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End Sub

[SAS888]

Franch
А Вы сами-то понимаете, что написали?
Попробую расшифровать: в диапазоне "myRange" находим все пустые ячейки (не строки) и удаляем целиком строки, в которых эти ячейки нашлись. Т.е. если в строке есть хотя бы одна пустая ячейка - удаляем строку. По-моему, это неправильно. Более того, в данном случае возможна ошибка работы с пересекающимися диапазонами.
Для решения подобной задачи, лучше использовать

Sub DelRows()

    Dim i As Long
    Application.ScreenUpdating = False
    For i = 2750 To 1 Step -1
        If Rows(i).Text = "" Then Rows(i).Delete
    Next

End Sub

Использование Application.ScreenUpdating = False предотвратит мелькание на экране и значительно ускорит выполнение процедуры.

[EducatedFool]

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

Franch
А Вы сами-то понимаете, что написали?
Попробую расшифровать: в диапазоне "myRange" находим все пустые ячейки (не строки) и удаляем целиком строки, в которых эти ячейки нашлись. Т.е. если в строке есть хотя бы одна пустая ячейка - удаляем строку. По-моему, это неправильно.

Позволю себе не согласиться.
Когда диапазон почти полностью заполнен данными (особенно, при работе с диапазоном, состоящим из ячеек одного столбца), гораздо удобнее использовать именно такой способ:

Range("b5:b28").SpecialCells(xlCell TypeBlanks).EntireRow.Delete

[SAS888]

Давайте рассуждать.
Утверждаю, что предлагаемый вариант будет корректно работать только

при работе с диапазоном, состоящим из ячеек одного столбца

если же, например, контролируемый диапазон Range("B5:C28"), и пусть (для наглядности) все ячейки столбца "C" пусты, Ваш метод удалит все строки, независимо от того есть значения в ячейках столбца "B", или нет. Что есть неправильно.

[Franck]

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

Franch
А Вы сами-то понимаете, что написали?

Что там понимать-то? Я, по крайней мере, не поленился скачать файл автора темы. Для его задачи макрос более чем достаточен.
ЗЫ, не Франч, а Фрэнк, в нике же написано.
ЗЫ2 Упсс. Почему-то не работает. Непонятно.

[SAS888]

Franck
Не кипятитесь. Я тоже не поленился, и внимательно почитал все посты темы. Есть такой вопрос:

А если нужно именно пустые строки удалять, и поиск вести не по ячейке а по всей строке?

P.S. Извините за неправильное обращение по нику.

[S63AMG]

Здравствуйте!
Пожалуйста помогите сделать макрос для "производственных задач"
Дано: массив - 6 столбцов, около 1000 строк.
Задача макроса: удалять строки, в которых есть только одна пустая ячейка (она всегда находится в 5 столбце).
Если же в строке больше чем 1 пустая ячейка (например 2 рядом) - оставлять строку нетронутой.

Благодарю за помощь.

[SAS888]

См. здесь.

[komar73]

Подскажите пожалуйста как мне удалить строки в которых во втором столбце есть отрицательные значения типа -1, -10 итд.