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:
**粗体** _斜体_ [链接](http://example.com) `代码` - 列表 > 引用
。你还可以使用@
来通知其他用户。