可以查到啊?
可能你的用法错了!
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