如何在VBA里把查找得到的单元格赋给单元格变量

我不知道问题说清楚没，比如我在VBA里根据输入的关键字查找到含有对应信息的单元格是A1，如何把A1这个单元格在查找到以后直接赋值给一个已经设定好的单元格变量？如果能附上怎么查找更好，在这先谢谢了。

假定你要找的关键字为“ldm029”，单元格对象变量为Ra。用一句就行：
Set Ra = Cells.Find("ldm029")
注意如果表格中没有这个关键字，Ra将被释放。所以如果没找到又不想改变Ra，可在前面加一个条件：if not Cells.Find("ldm029") is nothing then Set Ra = Cells.Find("ldm029")

Sub AAA() For each cel in UsedRange If cel.value="关键字" then [e1]=cel.value Exit for end if Next End Sub 再看看别人怎么说的。