一般是从其他软件或系统导出的表格会有这种情况,一般使用这种表格数据都是一次性处理数据,我倾向于直接排序,使有效行集中,然后将有效行复制到新的空白表中作后期数据处理
按CTRL+END,能到最后的单元格,这个单元格与有效的数据之间的行和列,分别删除一次,再保存
Sub 删除空行()
Application.ScreenUpdating = False
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub