2014-01-06 208 views
-1

我不斷收到這個錯誤時,我嘗試了一些奇怪的原因做InStr ...我以前也這樣做,它一直在其他時間,但由於某些原因,我不能要得到這個工作...完成運行通過,我知道這是InStr功能是給我的一個問題VBA運行時錯誤1004 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 

任何幫助表示讚賞。我甚至試圖單獨獲取這些值,但這也不起作用。

回答

1

嗯......我是個白癡......我只是需要的初始值從0更改爲1,因爲行0不存在

+0

我不得不放棄我的回答:還P –

+0

你不需要'步驟1'。它不會有所作爲。 –

+0

@SiddharthRout感謝您的努力,和指針!附註:你有機會看看使用中的文件問題?做了一些更改,但同樣的問題發生http://stackoverflow.com/questions/20705870/file-in-use-message-stopping-overnight-run-of-visual-basic-excel-script – Adjit