使用find函数错误执行while循环

Question

我正在尝试创建一个带有find函数的简单循环和find函数中的计数器。它第一次通过循环，但当我增加计数器时，它给我一个错误。谁能告诉我什么是错的？谢谢！

Dim a as integer
a=1
do while (a<1135)
Range("A:A").find(a).select
....
a=a+1
loop

Answer 1

正如上面的评论所述，我建议坚持使用Microsoft's Sample code .Find。那么你找不到数字就不会有任何问题：

Dim a As Integer
Dim rng As Range

a = 1
Do While (a < 1135)
    Set rng = Sheets(1).Range("A:A").Find(a)
    If Not rng Is Nothing Then
        Sheets(1).Activate
        rng.Select
        ...
    a = a + 1
Loop