Excel 删除第一个单元格为空的整行
Excel delete entire row where is first cell empty
当第一个单元格为空时,如何删除整行?
您可以对 column A
进行排序,这会将所有空行放在一起。
然后就可以select一次性把空行全部删掉
或
您 select 您的 table,然后单击过滤器,然后在列上进行过滤并仅显示 blanks
,然后单独显示 select 这些行(不拖动 select) 并删除它们。
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
有多种方法可以执行此操作,如下所示。你还没有展示你的尝试。
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
当第一个单元格为空时,如何删除整行?
您可以对 column A
进行排序,这会将所有空行放在一起。
然后就可以select一次性把空行全部删掉
或
您 select 您的 table,然后单击过滤器,然后在列上进行过滤并仅显示 blanks
,然后单独显示 select 这些行(不拖动 select) 并删除它们。
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
有多种方法可以执行此操作,如下所示。你还没有展示你的尝试。
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