有没有高手指点一下呀！小弟拜托了！！

好多人看怎么没有人回复？

exlsheet.Range("A1").Select
    Dim C  As Range
    Set C = exlsheet.Cells.Find("查询值", ActiveCell, xlValues, , , xlNext)
    If C Is Nothing Then
      MsgBox "没有找到"
    Else
      C.Select
      MsgBox "已经存在"
    End If