Excel VBA：多個條件匹配-評估功能

Question

我曾多次嘗試在VBA中正確使用評估功能，但未成功。 我想在數據表上運行多個條件匹配。 我在這里提供了樣本數據表進行測試。 我無法獲得函數Evaluate(evalStr)傳遞匹配行。 我反復收到一條錯誤消息。 我在下面提供了一個示例代碼集，所需的結果是第7行，其中item1 =“ Orange”和item2 =“ Feb”。 您能幫忙找出問題嗎？

Sub testEval()

Dim dataTable As ListObject
Dim evalStr As Variant
Dim item1 As String
Dim item2 As String
Dim ws As Worksheet

item1 = "Orange"
item2 = "Feb"

Set ws = ActiveSheet
Set dataTable = ws.ListObjects(1)

With ws

    'V1
    evalStr = .Evaluate("MATCH(" & item1 & "&" & item2 & "," & .Columns(1).Address & "&" & .Columns(2).Address & "),0)")

    'V2?
    'evalStr = .Evaluate("MATCH(" & item1 & "&" & item2 & "," & Application.WorksheetFunction.Substitute(.Columns(1).Address & "&" & .Columns(2).Address, "$", "") & "),0)"

    'With dataTable.DataBodyRange

        ''V3?
        'evalStr = ws.Evaluate("MATCH(" & item1 & "&" & item2 & "," & .Columns(1).Address & "&" & .Columns(2).Address & "),0)")

        ''V4?
        'evalStr = ws.Evaluate("MATCH(" & item1 & "&" & item2 & "," & Application.WorksheetFunction.Substitute(.Columns(1).Address & "&" & .Columns(2).Address, "$", "") & "),0)")

    'End With

    End With
End Sub

Answer 1

evalStr應該是：

evalStr = .Evaluate("=MATCH(""" & item1 & """&""" & item2 & """," & .Columns(1).Address & "&" & .Columns(2).Address & ",0)")

=在公式中丟失， item1和item2應該用雙引號引起來，因此我在"" ,0 ""之前添加了""並且有多余的)