[VBA ] Vlookup此處需要物件

看板Visual_Basic作者 (一個布丁)時間4年前 (2020/09/22 20:54), 編輯推噓0(008)
留言8則, 5人參與, 4年前最新討論串1/1
各位好 想使用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

09/22 22:17, 4年前 , 1F
.Cells()和.Range()試試看
09/22 22:17, 1F

09/22 23:57, 4年前 , 2F
你確定Application是這樣拼嗎
09/22 23:57, 2F

09/23 01:18, 4年前 , 3F
真的都拼錯 XD
09/23 01:18, 3F

09/23 07:09, 4年前 , 4F
如果這是一個獨立的巨集,要指出是哪一個sheet的range或
09/23 07:09, 4F

09/23 07:09, 4年前 , 5F
cell
09/23 07:09, 5F

09/24 00:01, 4年前 , 6F
對...我拼錯了 修正以後再稍微改一下就沒有問題了
09/24 00:01, 6F

09/24 00:02, 4年前 , 7F
謝謝樓上們的幫忙!!
09/24 00:02, 7F

09/25 18:05, 4年前 , 8F
對嘛 物件名字拼錯 有錯誤訊息也很合理且合邏輯
09/25 18:05, 8F
文章代碼(AID): #1VQVG6Iy (Visual_Basic)
文章代碼(AID): #1VQVG6Iy (Visual_Basic)