采用此工作表方案-在黄色单元格中,我使用了数组公式来定位表中的第5行:{=MATCH(4&"jkl",A1:A5&B1:B5,0)}
我一生无法将其转换为VBA工作表功能。我认为这是正确的:
MsgBox WorksheetFunction.Match([4 & "jkl", .Range("A1:A5") & .Range("B1:B5")], 0)
非常感谢收到任何建议。
我问了类似的问题here,但是提出的解决方案难以处理串联范围,因此:
利用在VBA中MATCH()
可以处理Range
或Array
的事实:
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