有个excel表格很大，但是有效数据只有几百行，其余几十万行都是空白行。请问为何会出现这种情况？

如何删除这种无效的空白行呢？

一般是从其他软件或系统导出的表格会有这种情况，一般使用这种表格数据都是一次性处理数据，我倾向于直接排序，使有效行集中，然后将有效行复制到新的空白表中作后期数据处理

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

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