从Excel公式转换为VBA代码

Question

VBA中的以下Excel代码等效于什么？

=MATCH(A1,Ranged_Name,0)

其中Ranged_Name是工作簿级别的范围名称。

Answer 1

要再添加一个：

Dim r
With Activesheet
    r = Application.Match(.Range("A1").Value, Range("Ranged_Name"), 0)
End with

If Not IsError(r) Then
    'got a match
End If

Answer 2

如果工作表是ActiveSheet，则可以使用Range（）。Find或Evaluate()进行匹配。

Answer 3

在工作表单元格和VBA中：

Sub dural()
    MsgBox Evaluate("Match(A1,Range_Name,0)")
End Sub

EDIT＃1：

根据评论，更好的选择：

Sub dural()
    Dim r1 As Range, r2 As Range, v As Variant, wf As WorksheetFunction

    Set r1 = Sheets("Sheet1").Range("A1")
    Set r2 = Range("Range_Name")
    Set wf = Application.WorksheetFunction

    v = wf.Match(r1, r2, 0)
    MsgBox v
End Sub

并使用Find()：

Sub larud()
    Dim r1 As Range, r2 As Range, v As Variant

    Set r1 = Sheets("Sheet1").Range("A1")
    Set r2 = Range("Range_Name")

    v = r2.Find(What:=r1.Value, After:=r2(1)).Row

    MsgBox v
End Sub