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

[alexk]

Задача казалось бы простая - удалить пустые строки в листе.
Но ни один макрос не хочет выполяться - пробовал DEF и PLEX
Макросы разрешены. Видимо дело в настройках самой книги (ячеек), но в чем конкретно не разберусь никак...
Спасибо за помощь.

[VictorM]

Задача казалось бы простая - удалить пустые строки в листе.

но так не сработало

Sub DelNulRows() 'так If IsEmpty = True не сработало
With ThisWorkbook.Worksheets(1)
     For iRow& = 2750 To 1 Step -1
         If IsEmpty(.Cells(iRow&, "A").Value) = True Then .Rows(iRow&).Delete
     Next
End With
End Sub

а так - работает (

Sub DelNulRows2() 'а так работает :(
With ThisWorkbook.Worksheets(1)
     For iRow& = 2750 To 1 Step -1
         If Cells(iRow&, "A").Value = "" Then .Rows(iRow&).Delete
     Next
End With

[alexk]

Да, да
Но я уже сам разобрался.
Оказалось - если данные скопировать в Word, а потом обратно в Excel, то все макросы начинают работать...
Спасибо за помощь....

[VictorM]

Оказалось - если данные скопировать в Word, а потом обратно в Excel, то все макросы начинают работать...

а это уже как-то ....

[Мучитель excel]

Полезный макрос, а если значение в одном случае в "А" а через 2-3 пустых в "В" уже тогда как? Удалит же со столбца "В" всю строку.....

[VictorM]

Но такова была задача

Задача казалось бы простая - удалить пустые строки в листе.

если же немного изменить макрос

Sub DelNulRows3() 'удаление ячеек со сдвигом вверх
With ThisWorkbook.Worksheets(1)
     For iRow& = 26 To 1 Step -1
         If Cells(iRow&, "A").Value = "" Then .Cells(iRow&, "A").Delete Shift:=xlUp
     Next
End With
End Sub

получим удаление пустых ячеек столбца "А" со сдвигом вверх.
Данные во всех остальных столбцах не удалятся.

[valerij]

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

Задача казалось бы простая - удалить пустые строки в листе..

Нет конкретики в вопросе, а так, достаточно нажать кн. "Сортировка по возрастанию"

[Мучитель excel]

Тоже как вариант неплохо,
А если нужно именно пустые строки удалять, и поиск вести не по ячейке а по всей строке? Если допустим задача стоит *удалить строки в которых нет записей*, если же в строке есть хотябы одно значение, не важно в каком столбце, строка не удаляется. Как в таком случае быть?

[VictorM]

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

тогда так можно:

Sub test()
    With ThisWorkbook.Worksheets(1)
        For iRow& = 2750 To 1 Step -1
            iCount = Application.Count(Rows(iRow&))
            If iCount = 0 Then
                MsgBox "Строка пустая" 'здесь Ваш код
            Else
                MsgBox "Строка непустая" 'здесь Ваш код
            End If
        Next
    End With
End Sub

[Мучитель excel]

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