Excel VBA - Application.Match 方法未找到匹配項

Question

我有一個小的宏程序，可以匹配兩個工作表（大數據）之間的值。

我正在使用Application.Match方法在另一個工作表中查找某個值的匹配項。

問題是，當我嘗試在范圍內分配一個行變量時，結果得到第 1 行而不是第 7 行，其中精確匹配。

Application.Match(data1, Worksheets("Data").Range("O" & lRowRange & ":O" & lLastRow), 0)`

lRowRange = 5

If Not IsError(Application.Match(data1, Worksheets("Data").Range("O" & lRowRange & ":O" & lLastRow), 0)) Then

     lMatchFound = Application.WorksheetFunction.Match(data1, Worksheets("Data").Range("O" & lRowRange & ":O" & lLastRow), 0)

     sDataFound = Sheets("Data").Cells(lMatchFound, 15)

End if

我沒有使用 LOOP 語句來查找匹配項，因為工作表包含大量數據。

希望你能幫幫我。 提前致謝。

Answer 1

您正在 O5:O10 中尋找匹配項。 如果您搜索的文本在 O5 中，那么您的匹配函數會給您一個“1”，因為它位於您范圍的第一個單元格中。

用

sDataFound = Sheets("Data").Cells(lMatchFound + lRowRange - 1, 15)

你會沒事的。