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