可以查到啊？
可能你的用法错了！
Public Function MDD(DH As String)
MDD = Sheet1.Cells(Sheet1.Range("a:a").Find(what:=DH).Row, 6)
End Function
Sub A()
MsgBox MDD("PP")
End Sub
如果是MDD为nothing，那就是你的Sheet1表中第6列没有值；
如果是Find为nothing，那就是你的Sheet1表中A列不存在DH所指定的字符串；
否则就是不存在名为Sheet1的表
excel中的函数和VBA中并不是完全对应的，试试InStr
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024