我试图在我的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
我跑的时候。 ＆＃34 ;;＆＃34;是因为excel的当地语言。 我希望有人能帮助我弄清楚如何克服错误
答案 0 :(得分：0)
不确定我理解您的问题，以下是否提供了解决方案：
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
答案 1 :(得分：0)
你可以使用
Selection.Formula = "=CELL(""Address"", OFFSET(A2,,MATCH(A1,B2:AD2,0)))"