Excel中出现的10万行没用的空白行怎么删除？

尝试一：保存关闭再打开，解决可能性25%

尝试二：选中最后一行，再拖动滚动条到数据区最后一行，按着shift点第一行空白行，删除，保存。解决可能性40%

尝试三：有用数据不多情况下，直接复制数据区域到新工作簿。解决可能性100%

尝试四：按alt F11，输入

Function DeleteEmptyRow()

l=activesheet.usedrange.columns.count

For i = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, l))) = 0 Then
Rows(i).Delete
End If
Next

按F5运行后即可。解决可能性99%