各位好
想使用excel的巨集功能
寫一個比對資料的功能
當比到沒有相同的值時就把數據抓出來
但是當我逐步執行到
s = Applicaion.WorksheetFunction.VLookup(Cells(i, 2), Range("C:C"), 1, False)
這行反黃的時候就會出現執行階段錯誤424
此處需要物件的訊息
是我哪邊沒有宣告到嗎?
謝謝
Sub test()
Dim i, k
Dim s As String
i = 2
j = 2
k = Sheets("sheet3").Range("D1").Value
With Sheets("sheet3")
For i = 2 To k
s = Applicaion.WorksheetFunction.VLookup(Cells(i, 2), Range("C:C"), 1, False)
If IsError(s) Then
Sheets("工作表4").Cells(j, 1) = Sheets("工作表1").Cells(i, 1)
j=j+1
Else
End If
Next
End With
End Sub