代码放表2
Sub 查找()
Dim Rng As Range
Set Rng = Worksheets("sheet1").Columns("A").Find("6135587583", LOOKAT:=xlWhole)
If Rng Is Nothing Then
MsgBox "没找该项目"
Else
Range("D7").Value = Rng.Offset(0, 3).Value
End If
End Sub
高级筛选试下，不懂的话百度一下就知道用法了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024