即使数据类型相同，也会出现数据类型不匹配错误

Question

谁能告诉我为什么在下面的代码中出现“运行时错误 13：类型不匹配”？ cell2 和lookupvalues 变量都是变体数据类型，所以我不确定问题出在哪里。

Sub MULTVLOOKUP()

    Dim lookupvalues As Variant
    Dim lookuprange As Range
    Dim returnrange As Range
    Dim cell As Variant
    Dim cell2 As Variant

    lookupvalues = Application.InputBox(Prompt:="What value do you want to      search for?", Title:="lookupvalue", Type:=8)
    Set lookuprange = Application.InputBox("What range do you want to search for this value in?", "lookuprange", Type:=8)
    Set returnrange = Application.InputBox("What cell do you want the results to begin being returned at?", "returnrange", Type:=8)

    For Each cell In lookupvalues
        For Each cell2 In lookuprange
            If InStr(1, cell2, lookupvalues) > 0 Then
                returnrange = cell2
                Set returnrange = returnrange.Offset(1, 0)
            End If
        Next
    Next

End Sub

仅供参考，我希望此宏从用户定义的范围（查找范围）返回满足用户还定义的多个条件之一的单元格值（查找值）。然后将从用户定义的范围（返回范围）开始返回适用的单元格值。所有这些用户输入都是通过输入框完成的。当用户只选择一个标准时，我已经让宏工作，但我一直在尝试修改代码以便可以选择多个标准/单元格。此行发生错误：

If InStr(1, cell2, lookupvalues) > 0 Then

非常感谢您的帮助！！

Answer 1

根据我的 cmets，这是我对您正在尝试的最佳猜测

Sub MULTVLOOKUP()

    Dim lookupvalues As Range
    Dim lookuprange As Range
    Dim returnrange As Range
    Dim cell As Variant
    Dim cell2 As Variant

    Set lookupvalues = Application.InputBox(Prompt:="What value do you want to      search for?", Title:="lookupvalue", Type:=8)
    Set lookuprange = Application.InputBox("What range do you want to search for this value in?", "lookuprange", Type:=8)
    Set returnrange = Application.InputBox("What cell do you want the results to begin being returned at?", "returnrange", Type:=8)

    For Each cell In lookupvalues
        For Each cell2 In lookuprange
            If InStr(1, cell2, cell.Value) > 0 Then
                returnrange = cell2
                Set returnrange = returnrange.Offset(1, 0)
            End If
        Next
    Next

End Sub