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

為我工作...........也許您的比賽不完全正確。