作者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/cn.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