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

Question

在Excel 2010中，下面的MATCH语句不起作用。 该函数应返回由数据集ID标识的数据集的行号（应唯一），如果不存在数据集ID，则返回0。 无论数据集ID是否出现在第一列中，该函数始终转到第二个分支并返回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

为我工作...........也许您的比赛不完全正确。