如何获得使用VBA上的Excel脚本find的单元格的列/行

我是一个完整的Excel脚本初学者，我发现了一些像下面这样的search词并replace它。

Sub replacerev() What = InputBox("word to search") repl = InputBox("word to replace") Cells.replace What:=What, Replacement:=repl, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub 

我想要的是search一个词，然后find它的列/行。 即使有研究，我也不太明白怎么做。