Sub findAddress()
Dim Rng As Range
With Sheet8.Range("C2:C" & Sheet8.UsedRange.Rows.Count)
Set Rng = .Find(Sheet5.Range("AA3"), LookIn:=xlValues, lookat:=xlWhole)
If Rng Is Nothing Then
MsgBox "不存在的库位 " & Sheet5.Range("AA3")
Else
MsgBox Rng.Address
End If