[讨论]如何"高效"的删除空白行

lj1226189 · 发表于 2008-5-12 15:28

0.8是在只有10列的情况啊!列多了就不可能这么快了!

andysky · 发表于 2008-5-12 15:54

QUOTE:

以下是引用lj1226189在2008-5-12 15:28:32的发言：
0.8是在只有10列的情况啊!列多了就不可能这么快了!

我是用6万行200列数据测试需要12.55秒（1GB内存、2.4GB的CPU）

实际工作表基本上不存在60000行200列这么大的工作表。

40列以上的就极度少见。

KocpMz7d.rar (435.27 KB, 下载次数: 58)

[此贴子已经被作者于2008-5-12 16:25:12编辑过]

彭希仁 · 发表于 2008-5-12 16:21

版主你弄一个200列的试试看!包你30秒运行不了!

我的破电脑的确运行不了,老提示内存不足啊,咱办呢?哈哈

northwolves · 发表于 2008-5-12 17:43

标记:

Sub Mark()
Dim r As Range, t As Single, n As Long
n = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
t = Timer
For Each r In [iv1].Resize(n)
If r.End(xlToLeft) > "" Then r = 1
Next
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.00秒")
End Sub

zzfbz · 发表于 2008-6-1 23:02

表头有中合并单元格时，报错！

彭希仁 · 发表于 2008-6-4 16:30

QUOTE:

以下是引用zzfbz在2008-6-1 23:02:42的发言：
表头有中合并单元格时，报错！

是的,不错才奇怪呢

xiatide334 · 发表于 2010-4-22 16:21

狼兄，你的代码是计时用的吗？

utterblue · 发表于 2010-4-22 17:01

呵呵，没想到我的效率这么低啊。估计没人超过我拉

bmdsjxyw · 发表于 2011-9-26 22:43

看着看着就被引到这了，顶！

		自动登录	找回密码
密码			免费注册

[讨论]如何"高效"的删除空白行

版主你弄一个200列的试试看!包你30秒运行不了!

回复 45楼 northwolves 的帖子

看看我的成绩