带有 InStr 函数的 VBA 运行时错误 1004

Question

当我出于某种奇怪的原因尝试执行InStr时，我一直收到此错误...我以前做过这个，其他时候也有效，但由于某种原因我无法让它工作......完成了运行，我知道这是给我带来问题的InStr函数

For x = 0 To 3466 Step 1
    For y = 0 To 6391 Step 1
        If InStr(Sheet1.Cells(x, 1).Value, Sheet2.Cells(y, 1).Value) <> 0 Then
            Sheet3.Cells(i, 1).FormulaR1C1 = Sheet1.Cells(x, 5).Value
            i = i + 1
        End If
    Next y
Next x

任何帮助，不胜感激。我什至尝试单独获取值，但这也不起作用。

Answer 1

嗯...我是个白痴...我只需要将起始值从 0 更改为 1，因为第 0 行不存在