选择操作行的效率问题

cabin9999

这是选择指定行并且将其隐藏的代码。
问题是当行数较大的时候，运行的效劳比较低。(比如， 20000行)
高手指点一下，如何提高效率。
多谢！
  
    For i = 1 To [B65536].End(xlUp).row Step 10
    Rows(i & ":" & (i + 8)).Select
    Selection.EntireRow.Hidden = True
    Next

lb_bn

Sub bbb()
    Set rng = Range("B1")
    x = [b65536].End(3).Row
    For i = 1 To x Step 10
    Set rng = Union(rng, Range("B" & i & ":B" & i + 8))
    rng.EntireRow.Hidden = True
    Next
End Sub

extyg

Sub test()
    Dim i, rng As Range
    Application.ScreenUpdating = False
    Set rng = Rows("1:9")
    If [B65536].End(xlUp).Row > 10 Then
        For i = 11 To [B65536].End(xlUp).Row Step 10
            Set rng = Union(Rows(i & ":" & (i + 8)), rng)
        Next
    End If
    rng.Hidden = True
    Application.ScreenUpdating = True
End Sub

cabin9999

效果不是很明显。有没有更好一点的。

cabin9999

原帖由 extyg 于 2009-10-21 16:29 发表
Sub test()
    Dim i, rng As Range
    Application.ScreenUpdating = False
    Set rng = Rows("1:9")
    If .End(xlUp).Row > 10 Then
        For i = 11 To .End(xlUp).Row Step 10
            Set r ...

更正:  rng.EntireRow.Hidden = True

速度有所提高，不过还是很慢，大概要10秒左右吧。（这个文档有25000行，日）
还能提高么。

[ 本帖最后由 cabin9999 于 2009-10-21 17:06 编辑 ]

lb_bn

表里有没有公式？

cabin9999

没有 只有数字

cabin9999

隐藏和筛选是不是不一样阿？为什么我在 B列筛选的时候，(数值大于0.1)。
那些被隐藏的行又都出来了？

[ 本帖最后由 cabin9999 于 2009-10-21 23:15 编辑 ]

oobird

1. Sub test()
   
2.     Dim n%, i%, arr
   
3.     t = Timer
   
4.     n = [b65536].End(3).Row
   
5.     ReDim arr(1 To n, 0)
   
6.     For i = 10 To n Step 10
   
7.         arr(i, 0) = 0
   
8.     Next
   
9.     [z1].Resize(n, 1) = arr
   
10.     For i = 1 To n Step 5000
    
11.         Cells(i, 26).Resize(5000, 1).SpecialCells(4).EntireRow.Hidden = True
    
12.     Next
    
13.     [z:z] = "": [b1].Select
    
14.     MsgBox Timer - t
    
15. End Sub
    

复制代码

cabin9999

版主就是牛阿，优化了100多倍。
仅用了0,15秒就搞定了。
佩服！