vba單元格查找

一、單元格查找，循環查找

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: