Sub Macro1()
Dim str
For Each cell In Range(“b1:b680”)
str = cell.Value
Set t = Sheet1.Cells.Find(str, lookat:=xlPart, MatchCase:=True)
If Not t Is Nothing Then
Cells(cell.Row, 3) = 1
End If
Next
End Sub
意思很简单,b1:b680是客户询盘的电话,每次取一个电话在sheet1中查找,如果查到了,就在其后面一列标1。最后只要把是1的列筛选出来就能看到所有的成交询盘了。
微信扫一扫 或 点击链接联系我
vlookup只能查找单元格,不能替代ctrl+f的全部搜索功能
vlookup就行了吧