Question

我正在尝试通过 VBA 使用此公式来获取单元格的地址。 =CELL("address",INDEX(A:C,MATCH(2019,A1:A124,0),3)) 得到的结果就是单元格的绝对地址。

我想我做错了什么，它不起作用。我在工作簿中有多个工作表，所以它位于 Sheet5。

Dim x As String
Dim year As String
year = 2019
 x = Sheet5.Cells.Address(WorksheetFunction.Index(Sheet5.Range("A:C"), Application.WorksheetFunction.Match(year, Sheet5.Range("A1:A124"), 0), 3))

请帮忙谢谢:)

Answer 1

尝试将代码分解一下：在一行中做太多事情并不好。

Dim m, yr

yr = 2019

'note no `WorksheetFunction`
m = Application.Match(yr, sheet5.Range("A1:A124"), 0) 'edit year>>yr

If Not IsError(m) Then
    MsgBox sheet5.Cells(m, "C").Address
Else
    MsgBox "No match for " & yr
End If

Cell.Address 函数与索引和匹配函数

1 个答案: