Excel删除第一个单元格为空的整行

时间:2018-01-30 12:27:31

标签: excel vba xlsx

当第一个单元格为空时,如何删除整行?

enter image description here

3 个答案:

答案 0 :(得分:1)

您可以对column A进行排序,将所有空行放在一起。 然后,您可以一次选择所有空行并删除它们

OR

您选择表格,然后点击过滤器,然后对列进行过滤并仅显示blanks,然后单独选择这些行(而不是拖动选择)并删除它们。 See image here

答案 1 :(得分:1)

有多种方法可以像下面这样做。你还没有表现出你曾经尝试过的东西。

Sub DelFirstColBlanks()
On Error Resume Next
Range("A1:A" & Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row).SpecialCells(xlCellTypeBlanks).Delete xlUp
On Error GoTo 0
End Sub

答案 2 :(得分:0)

Sub macro1()

    'Start from cell A1
    Range("A1").Select

    'Keep checking until you reach row let's say 90
    Do While ActiveCell.Row < 90


        'if the current cell is empty
        If ActiveCell.Value = "" Then

            'delete the enitre row
            ActiveCell.EntireRow.Delete shift:=xlUp

        Else

            'keep going down
            ActiveCell.Offset(1, 0).Select
        End If


    Loop
End Sub