[已解决]选择“第一个”符合条件的Cell

aakingrori

请教高手们，
想自动选取C列中，“第一个”value <10的储存格。
我现在的方式是
Sub bTimer()
Range("c1").Select
Checkpoint:
    If ActiveCell.Value > 10 Then
    ActiveCell.Offset(1, 0).Select
    GoTo Checkpoint
End If
End Sub

不过这个方式要花的时间太长，尤其是几万笔资料时，一个一个储存格下移运作的很慢。
想请教是否有更快的方式？感谢。

最佳答案

月排行榜 / 总排行榜

fffox

2013-12-28 21:33

1. Sub bTimer()
   
2.     Dim arr, rng As Range
   
3.     Dim i%
   
4.     arr = Range("a1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 3) < 10 Then
   
7.             Set rng = Cells(i, 3)
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11.     rng.Select
    
12. End Sub

复制代码

跳转到最佳答案楼层

hoogle

用数组

as0810114

你为什么要一个个偏移呢？
直接循环找到第一个小于10的值，取出单元格的地址不就行了。

fffox

逐个比较单元格的值，效率太低了。
把所有值读入数组，循环一下，找到第一个小于10的值，立即跳出循环，效率高多了

fffox

1. Sub bTimer()
   
2.     Dim arr, rng As Range
   
3.     Dim i%
   
4.     arr = Range("a1").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 3) < 10 Then
   
7.             Set rng = Cells(i, 3)
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11.     rng.Select
    
12. End Sub

复制代码