vba单元格查找

1、单元格查找，循环查找

 

Sub lookat()
Dim i&, j&, t As Date
t = Time()

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: