Excel 2010 VBA匹配功能找不到匹配项

Question

In Excel 2010, my MATCH statement below is not working. The function should return the row number of a dataset identified by the datasetId (which should be unique) and 0 if the datasetId is not present. Whether the datasetId is present in the first column or not, the function always goes to the second branch and returns 0

Function findDataset(dataWorksheet As Worksheet, datasetId As String) As Integer
    If Not VBA.IsError(Application.Match(datasetId, dataWorksheet.Columns(1), 0)) Then
        findDataset = Application.Match(datasetId, dataWorksheet.Columns(1), 0)
    Else
        findDataset = 0
    End If
End Function

Answer 1

There is nothing fundamentally wrong with your function:

Function findDataset(dataWorksheet As Worksheet, datasetId As String) As Integer
    If Not VBA.IsError(Application.Match(datasetId, dataWorksheet.Columns(1), 0)) Then
        findDataset = Application.Match(datasetId, dataWorksheet.Columns(1), 0)
    Else
        findDataset = 0
    End If
End Function

Sub MAIN()
    Dim ws As Worksheet
    Dim id As String, n As Integer
    Set ws = Sheets("Sheet1")
    id = "XX"
    n = findDataset(ws, id)
    MsgBox n
End Sub

Works for me..............perhaps your match is not EXACT.