VBA复制和查找

我在网上search，还没有设法find任何东西，以涵盖我所需要的。

希望这是有道理的。

我需要复制当前的单元格，selectsheet2，然后find该表单中的string。

我相信这是一个简单的代码，我已经find了可以find文本的地方，但只有当我把它直接放到代码中。 我只是需要它使用当前单元格。

Sub Find() Selection.Copy Sheets("Sheet2").Select Range("A1").Select Cells.Find(What:="MYDATA", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate End Sub 

感谢所有的帮助。

谢谢。

Answer 1

修改你的代码，以包含当前单元格的值作为variablesfindValue ，然后使用它作为find函数中的参数。

试试这个：

 Sub Find() findValue = ActiveCell.Value Sheets("Sheet2").Select Range("A1").Select Cells.Find(What:=findValue, After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate End Sub