[VBA ] Vlookup此處需要物件

[piecpiec (一個布丁)]

各位好
想使用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


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.137.2.208 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1600779270.A.4BC.html
→ newacc: .Cells()和.Range()試試看
→ MOONRAKER: 你確定Application是這樣拼嗎
→ lalacos123: 真的都拼錯 XD
→ hulapig: 如果這是一個獨立的巨集，要指出是哪一個sheet的range或
→ hulapig: cell
→ piecpiec: 對...我拼錯了 修正以後再稍微改一下就沒有問題了
→ piecpiec: 謝謝樓上們的幫忙!!
→ MOONRAKER: 對嘛 物件名字拼錯 有錯誤訊息也很合理且合邏輯