答案 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