想要如下图的效果,但公司环境不方便用VBA,求大神赐教。
Function WLookup(vA As Variant, rA As Range, iA As Integer)
Dim rCell As Range
WLookup = "Nothing"
If Len(vA) < 1 Then Exit Function
Set rCell = rA.Find(what:=vA, lookat:=xlWhole)
If rCell Is Nothing Then Exit Function
WLookup = Cells(rCell.Row, iA)
End Function