Excel 2010 VBA匹配函数未找到匹配项

Question

在Excel 2010中，我的MATCH语句不起作用。该函数应返回由datasetId（应该是唯一的）标识的数据集的行号，如果datasetId不存在，则返回0。无论是资料集存在于第一列与否，功能总是转到第二个分支，并返回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

没有什么根本性的错误你的函数：

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 

为我工作。 .............也许你的比赛不是确切的。