Vba学习（一）

Sub findNum()
Dim i&, j&, d As Date

For i = 1 To 10000
  For j = 1 To 50
   If Cells(i, j) = "老石" Then
     Cells(i, j).Interior.Color = vbRed
     Cells(i, j).Select
    GoTo FOUND
    End If
    Next j
   Next i
 
FOUND:
   MsgBox "公用时：" & DateDiff("s", d, Time()) & "秒"
End Sub

Sub findNum()
Dim i&, j&, d As Date, arr()
d = Time()

arr = Range(Cells(1, 1), Cells(10000, 50))

For i = 1 To 10000
  For j = 1 To 50
   If arr(i, j) = "老石" Then
     Cells(i, j).Interior.Color = vbRed
     Cells(i, j).Select
    GoTo FOUND
    End If
    Next j
   Next i
 
FOUND:
   MsgBox "公用时：" & DateDiff("s", d, Time()) & "秒"
End Sub