vba - Excel 如果单元格包含空单元格，则删除行

Question

我正在尝试做一些数据预处理。我想编写一个宏来删除包含任何空单元格的任何行。

我一直在互联网上寻求帮助，但他们要么无处可去，要么我不太明白代码

Sub ListWiseDel()


Dim cell As Range

For Each cell In Range("A1:U1077")
If IsEmpty(c.Value) Then
ActiveCell.EntireRow.Delete

End If
Next cell

End Sub

我一直在尝试这个，但我不断收到错误。

Answer 1

尝试这个 ：

Sub delEmptyRow()

    Dim col, ligne
    Dim vide

    ligne = 10
    While ligne > 0
        vide = False
        col = 1
        Do While Not vide And col <= 10
            If IsEmpty(Cells(ligne, col)) Then
                vide = True
            End If
            col = col + 1
        Loop
        If vide Then Cells(ligne, 1).EntireRow.Delete
        ligne = ligne - 1
    Wend
End Sub