excel - VBA：无法获取 WorkSheet 函数类的 Match 属性

Question

有人可以用下面的代码提供建议。我希望能够找到出现“索引”的列：

Sub Test()
    Dim d As Range
    Dim a As Variant

    Set d = Sheet2.Range("H349:M349")

    a = Application.WorksheetFunction.Match("Index", d, 0)

End Sub

但我在最后一行收到错误消息：

无法获取 WorkSheet 函数类的 Match 属性

Answer 1

您确定单词“索引”（并且只有“索引”）本身出现在 Sheet2 中的一个单元格中（可能与 Sheets（“Sheet2”）H349：M349 相同）？

Match 在 VBA 中很容易出错，所以我更喜欢使用 Range.Find 方法，它可以测试 Nothing（未找到）：

Sub Test()

    Dim rngFound As Range

    Set rngFound = Sheet2.Range("H349:M349").Find("Index", , xlValues, xlWhole)
    If Not rngFound Is Nothing Then
        'Found a match
        MsgBox "Found a match at " & rngFound.Address
    Else
        'No matches
        MsgBox "No matches"
    End If

End Sub