與Excel中的WorksheetFunction.Match（）混搭

Question

這是我爲Excel編寫的一些VBA代碼。我試圖將Sheet1中的條目與Sheet2中的條目匹配。兩片材的結構如下：

DATE | ID | 
----- ---- 
Date1 ID1 
Date2 ID2... 

在我的代碼，我循環通過第一片的行，並設置從每個特定行的值作爲我MATCH()查詢的一部分，在尋找這些的希望第二張相同的值。當我這樣做時，我想要MATCH()返回找到這些值的行索引，所以我可以使用同一行從第一張表中輸入更多信息。此查詢使用多個條件，如value和searchRange變量所示（我試圖通過連接方法使用多個條件，如this文章中所見）。

問題是，我始終得到一個WorksheetFunction.Match無法使用的錯誤。當我使用一個標準（ID）時，該功能起作用。當我嘗試使用多個文件時，即使我按照前面鏈接文章中的說明操作，但仍然失敗。任何建議或想法來解決這個將不勝感激。

Sub runComparison(Sheet1 As String, Sheet2 As String) 

    Dim rowCount As Variant, columnCount As Variant, information As Variant 
    Dim counter As Integer 
    Dim value As String, searchRange As String 

    Sheets(Sheet2).Select 

    'Array of the number of rows in both sheets 
    rowCount = Array(Sheets(Sheet1).Cells(Rows.count, "A").End(xlUp).row, Sheets(Sheet2).Cells(Rows.count, "A").End(xlUp).row) 

    'Array of the number of columns in both sheets 
    columnCount = Array(Sheets(Sheet1).Cells(1, Columns.count).End(xlToLeft).Column, Sheets(Sheet2).Cells(1, Columns.count).End(xlToLeft).Column) 

    'The range in which we will look for the date and the ID 
    searchRange = CStr(Range(Cells(2, 1), Cells(rowCount(1), 1)).Address & "&" & Range(Cells(2, 2), Cells(rowCount(1), 2)).Address) 

    counter = 2 
    Do Until counter = rowCount(0) 

     'Sets the search term equal to the current cell in Sheet1 
     value = Sheets(Sheet1).Cells(counter, 1) & "&" & Sheets(Sheet2).Cells(counter, 2) 

     ' Attempts to set the cell in the 8th column in the same row in which the search term is found equal to a certain value from the search term's row 
     Cells(WorksheetFunction.Match(value, searchRange, 0), 8) = Sheets(Sheet1).Cells(counter, columnCount(0)).value 

     counter = counter + 1 
    Loop 

End Sub 

編輯：下面是一些示例輸入

value = '7/14/2014&ESTUOUW1046465464' 
searchRange = '$A2:$A298&$B2:B298' 

Answer 1

修訂

感謝您的評論澄清。我刪除了原來的答案，因爲它只涉及到常規的「匹配」功能，並且我看到參考/示例，並理解您現在要做的涉及數組公式的內容。

讓我們試試這個使用Application.Evaluate這將避免需要將此公式放在單元格中。使用來自MS的示例數據，我做了這似乎工作：

Sub test() 

Dim value As String 
Dim srcRange As String 

value = "D2&E2" 
srchRange = "$A$2:$A$5&$B$2:$B$5" 

Debug.Print Application.Evaluate("=MATCH(" & value & "," & srchRange & ",0)") 


End Sub 

在您的代碼中應用，我想會像下面。我想，YOu仍然想要Dim matchVal as Variant來保留公式評估的結果。然後執行此操作：

Do Until counter = rowCount(0) 

    'Sets the search term equal to the current cell in Sheet1 
    value = Sheets(Sheet1).Cells(counter, 1) & "&" & Sheets(Sheet2).Cells(counter, 2) 

    '## Assign the result of the Match function to a variable 
    matchVal = Application.Evaluate("=MATCH(" & value & "," & searchRange & ",0)") 

    '## Check for errors, and handle as needed: 
    If IsError(matchVal) Then 
     'modify as needed, this highlight the cell with the non-matched value 
     ' you might omit this line and simply ignore it, or you could 
     ' display a MsgBox prompt, etc. 
     Sheets(Sheet1).Cells(counter, columnCount(0)).Interior.ColorIndex = 6 
    Else: 
     Cells(matchVal, 8) = Sheets(Sheet1).Cells(counter, columnCount(0)).value 
    End If 

    counter = counter + 1 

Loop