作者piecpiec (一個布丁)
看板Visual_Basic
標題[VBA ] Vlookup此處需要物件
時間Tue Sep 22 20:54:28 2020
各位好
想使用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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1600779270.A.4BC.html
1F：→ newacc: .Cells()和.Range()試試看 09/22 22:17
2F：→ MOONRAKER: 你確定Application是這樣拼嗎 09/22 23:57
3F：→ lalacos123: 真的都拼錯 XD 09/23 01:18
4F：→ hulapig: 如果這是一個獨立的巨集，要指出是哪一個sheet的range或 09/23 07:09
5F：→ hulapig: cell 09/23 07:09
6F：→ piecpiec: 對...我拼錯了 修正以後再稍微改一下就沒有問題了 09/24 00:01
7F：→ piecpiec: 謝謝樓上們的幫忙!! 09/24 00:02
8F：→ MOONRAKER: 對嘛 物件名字拼錯 有錯誤訊息也很合理且合邏輯 09/25 18:05