在excel中查找word

我试图在我的excel表格中找到一个单词，并将该单词的地址写在单元格（A2）中

我的代码如下所示

Sub SampleCelle()

Worksheets("Data").Select
Range("A2").Select
Selection.Formular = "=CELL(""Address"";INDEX($B$2:$AD$2;MATCH($A$1;$B$2:$AD$2;0)))"


End Sub

所以我试图找到A1写的单词的地址，但是我得到了

运行时错误438

当我运行它时。“；”是由于excel中的本地语言。

---

我希望有人能帮助我找出如何克服错误

不确定我是否理解您的问题，以下是否提供了解决方案：

Sub SampleCelle()
Dim myCell As String

myCell = 'whatever word you're looking for
Set myRange = Worksheets("Data").Range("A:A").Find(myCell, , xlValues, xlWhole, , MatchCase:=False, searchformat:=False)
Cells("A2") = myRange.Address

End Sub

你可以用

Selection.Formula = "=CELL(""Address"", OFFSET(A2,,MATCH(A1,B2:AD2,0)))"