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

彭希仁

Sub bb()
    t1 = Timer
    Application.ScreenUpdating = False
    lng = ActiveSheet.UsedRange.Rows.Count
    lng2 = ActiveSheet.UsedRange.Columns.Count
    ReDim arr(1 To lng, 1 To 1)
    rng = Cells(1, 1).Resize(lng, lng2)
    For i = 1 To lng
        For j = 1 To lng2
            If rng(i, j) <> "" Then
                arr(i, 1) = i
                Exit For
            End If
        Next
    Next
    Cells(1, lng2 + 1).Resize(lng, 1) = arr
    Cells(1, 1).Resize(lng, lng2 + 1).Sort Key1:=Cells(1, lng2 + 1), Order1:=xlAscending
    Cells(1, lng2 + 1).Resize(lng, 1) = ""
    Application.ScreenUpdating = True
    MsgBox Timer - t1
End Sub

andysky

QUOTE:

以下是引用lj1226189在2008-5-12 10:28:51的发言：
估计30秒完成也是不可能的!

30秒？

我测试0.8秒钟完成，请看３７楼。

60000行（或者不定列不定列）中删除空行

[此贴子已经被作者于2008-5-12 13:27:40编辑过]

masher

回32,33楼，

UseRange.cells(1,1).Address 不一定是 $A$1 吧？

另外未测试AutoFilter等特殊情况是否有影响。

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

weide_yang

请彭版主帮忙看看，执行代码后，附件中的空行怎么没能被删除，谢谢!

XxUhVNKc.rar (7.59 KB, 下载次数: 12)

2008-5-12 12:47 上传

点击文件名下载附件

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

andysky

QUOTE:

以下是引用彭希仁在2008-5-12 10:23:29的发言：

罗兄,你有两个马甲?

一个都没有

andysky

QUOTE:

以下是引用weide_yang在2008-5-12 12:42:35的发言：

请彭版主帮忙看看，执行代码后，附件中的空行怎么没能被删除，谢谢!

64HyMWX2.rar (145.78 KB, 下载次数: 34)

2008-5-12 13:26 上传

点击文件名下载附件

[此贴子已经被作者于2008-5-12 13:26:35编辑过]

masher

回37楼，

起始行：ActiveSheet.UsedRange.Cells(1.1).Row

结束行：ActiveSheet.UsedRange.Cells(1.1).Row - 1 + ActiveSheet.UsedRange.Rows.Count

起始列与结束列也相类似；(若数据列到了256，代码很可能就出错了)

另外AutoFilter及Hidden等特殊情况是否需要考虑？

[此贴子已经被作者于2008-5-12 14:36:57编辑过]

andysky

QUOTE:

以下是引用masher在2008-5-12 14:21:47的发言：

回37楼，

起始行：ActiveSheet.UsedRange.Cells(1.1).Row

结束行：ActiveSheet.UsedRange.Cells(1.1).Row - 1 + ActiveSheet.UsedRange.Rows.Count

起始列与结束列也相类似；(若数据列到了256，代码很可能就出错了)

另外AutoFilter及Hidden等特殊情况是否需要考虑？

1.起始行：ActiveSheet.UsedRange.Cells(1.1).Row-------这种用法是画蛇添脚哦。Cells(1.1)根本不需要

2.结束行：ActiveSheet.UsedRange.Cells(1.1).Row - 1 + ActiveSheet.UsedRange.Rows.Count------同样是画蛇添脚

3.若数据列到了256-----实际工作表，是否有人用了256列？

4.Hidden状态的行可以忽略。

boy8238

顶级大侠，好功夫。努力学习。

functions

QUOTE:

以下是引用andysky在2008-5-12 12:53:37的发言：

这是因你的代码不通用.这个代码需要在A1单元格输入数据后才能正常执行

给你一个通用的代码．

６万行只需要１秒钟完成 

[em17][em17]

通用性和速度稳居第一