具有两个标准的MATCH公式作为工作表函数(VBA)

问题描述 投票:1回答:1

采用此工作表方案-在黄色单元格中,我使用了数组公式来定位表中的第5行:{=MATCH(4&"jkl",A1:A5&B1:B5,0)}

worksheet

我一生无法将其转换为VBA工作表功能。我认为这是正确的:

MsgBox WorksheetFunction.Match([4 & "jkl", .Range("A1:A5") & .Range("B1:B5")], 0)

非常感谢收到任何建议。

excel vba match criteria worksheet
1个回答
0
投票

我问了类似的问题here,但是提出的解决方案难以处理串联范围,因此:

利用在VBA中MATCH()可以处理RangeArray的事实:

Sub dural()
    Dim arr(1 To 5, 1 To 1)

    For i = 1 To 5
        arr(i, 1) = Cells(i, 1) & Cells(i, 2)
    Next i

    With Application.WorksheetFunction
        MsgBox .Match("4jlk", arr, 0)
    End With
End Sub

enter image description here

© www.soinside.com 2019 - 2024. All rights reserved.