Excel 2007 删除大量空白行问题

在Excel 2007处理数据时，总共有50万行数据，其中20万行为不规则的空白行，目的是删除着20万行不规则的空白行。我主要有以下方法，均报错：
1、我通过筛选，选择空白行时，然后删除总会出错；
2、通过定位条件，选择空白行删除也是出错；
3、通过代码批量处理空白行也会出错；
但是以上方法如果只处理小于65536行的数据时都没问题，请教大家我该怎么处理这么庞大的数据！回答的可以解决问题的我会另外加分！

另外我装的是Excel2007，不要回答的过于低级无知，回答前请看好题目！

例如 你A~Y列都有内容
将Z列作为辅助列
Z1输入公式
=if(counta(A1:Y1)=0,0,1)
下拉这个公式
然后按照Z列降序排列
最后删除Z列
这个方法绝对快

你打开这个表要多久？

我明白你的意思,要实现这个用隐藏单元格就可以实现的， 按一下14列的那个 14 选中这一整行，、 按住ctrl+shift+↓方向键，一次或多次能选中下面所有行，右击左侧数字栏，选择隐藏。 同样按一下g列的那个 g 选中这一整列 ctrl+shift+ → 多按几下方向键，选中所有列， 右击，选隐藏！ 然后你整张表就只能看到 13行 f列了！

首先对数据标记各自的顺序号，可以在数据列后插入一个空白列（假如为C列），在C1中输入1，然后可以通过鼠标拖动将C1的数据复制到整个C列，复制方式选择“以序列填充”，这样数据原来是第几行就已经标记好了。 然后对数据排序（排序时主要关键字按照A列，次要关键字按照C列升序），这样就可以将空白数据排序集中到一起，然后删除。

各列中间没有空白的吧？如果没有，还是通过增加一列序号列来筛选其他某列空白为最简单，具体操作步骤如下： 第一步，你说拖50W行难，是，但你为什么不用ctrl+shift+↓呢？这样一秒种可选定从当前活动单元格到最后一行的全部行，再输入函数 =row()，再复制，选择性粘贴-数值。只需要不到10秒钟时间。 第二步，按你不希望出现空行的某一列自动筛选，找到空值，拖选，删除。

Sub 删除工作表内全部空行() Dim UserSheet As Worksheet Set UserSheet = ActiveSheet Dim TopRow As Long Dim LeftCol As Integer TopRow = ActiveWindow.ScrollRow LeftCol = ActiveWindow.ScrollColumn Dim LastRow As Long, R As Long LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1 Application.ScreenUpdating = False For R = LastRow To 1 Step -1 If WorksheetFunction.CountA(Rows(R)) = 0 Then Rows(R).Delete End If Next R UserSheet.Activate ActiveWindow.ScrollRow = TopRow ActiveWindow.ScrollColumn = LeftCol End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息