贡献：如何在excel中扫描单元格内容，并注上标记

liujianjie

在excel中扫描单元格内容用vlookup函数并不好用，所以写了一段代码，供大家分享，请指正。

Sub 查找()
Dim I As Integer
For I = 2 To 433    //*我的表格是433行，可以用其他的遍历循环方法*//
If Not Range("B:B").Find(Range("A" & I)) Is Nothing Then Range("e" & I) = "2010" //*在B列中逐个查找A列的数值，如果查到，与A列对应的E单元格标记2010*//
If Not Range("c:c").Find(Range("A" & I)) Is Nothing Then  //*在C列中逐个查找A列的数值，如果查到，与A列对应的E单元格标记2010*//
Range("e" & I) = "2011"
Range("f" & I) = Range("d" & I)
End If
Next I
End Sub