findnext裏的參數必須是壹個單元格對象，所妳這裏vl是壹個值，就不行了
妳參考壹下vba幫助裏關於find的示例吧：
示例
本示例在第壹個工作表的單元格區域 A1:A500 中查找包含值 2 的所有單元格，並將這些單元格的值更改為 5。
With?Worksheets(1).Range("a1:a500")Set?c?=?.Find(2,?lookin:=xlValues)
If?Not?c?Is?Nothing?Then
firstAddress?=?c.Address
Do
c.Value?=?5
Set?c?=?.FindNext(c)
Loop?While?Not?c?Is?Nothing?And?c.Address?<>?firstAddress
End?If
End?With