如何取excel选中的数据啊， 急

[owalmh]

已找到相关ＶＢＡ代码已试过后了，　但不知道用ＶＣ怎样写
Set c = Application.Selection.Find("1")
If Not c Is Nothing Then
MsgBox c.Value
End If
Set c = Application.Selection.FindNext(c)
If Not c Is Nothing Then
MsgBox c.Value
End If

这里我主要不知道findnext的参数要怎样给值,　只要知道怎样给这个参数赋值的话就应该可以实现的了．请问有人懂吗？关于如果取excel选中数据．　我已搞了几个月了但还未找到方法啊，所以无办法只能求人．