[算表] vba with range find問題

[ljuber (美少婦與女兒同學的故事)]

軟體:excel

版本:2007

需求很簡單


比對sheets("設定")的A欄  若有這個值就在比對資料那一欄位旁傳回 "V"

沒有就空格

但是會出現此處需要物件

不知道那邊想錯了...

Dim kx As String
Set sht1 = Sheets("資料")
sht1.Select
lastrow = Range("A1").End(xlDown).Row
col1 = Range("A1").End(xlToRight).Column + 1
With Sheets("設定").Range("A:A")
 For i = 3 To lastrow
 Set kx = .Find(What:=Range("A" & i).Text, LOOKAT:=xlWhole)
     ^^會出現此處需要物件

 If Not k Is Nothing Then
 Cells(i, col1) = "V"
 Else
 Cells(i, col1) = ""
 End If
 Next i
End With


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1537411307.A.6FA.html
→ soyoso: dim kx as string改為dim kx as range
→ soyoso: 另外if not k is nothing then 變數k如指的是kx的話，也請
→ soyoso: 修改一下
我改了還是會有出現錯誤訊息
不知道那邊有問題 ...附上原始檔案

https://drive.google.com/open?id=1GHBsDgTg_WCtlX5ZvLoIgommgylGJj0M
※ 編輯: ljuber (60.250.67.78), 09/20/2018 12:01:12
→ newacc: LookAt = xlWhole是指全部符合，xlPart才是你符合你資料的
→ newacc: 建議在Sub外面加上Option Explicit，每個變數都先Dim過比
→ newacc: 較容易找變數方面的bug
→ newacc: 同時可以避免變數名稱誤打產生的錯誤
→ soyoso: 以xlwhole的話，what方面就以 "*" & range("a" & i) & "*"
→ soyoso: 的方式
→ ljuber: 感謝S大的指導 office有你真好^^