步驟：
1、利用INPUTBOX（）獲得想查詢的內容，並存放到局部變量INPUTDATA 中
2、用DIM MYRANGE AS RANGE 和以下語句組合進行查找
Set MyRange = Sheets("工作表名稱").Cells.Find(what:=INPUTDATA, After:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
3、用條件語句進行判斷是否找到或符合
If MyRange Is Nothing Then
MsgBox "沒找到符合條件的記錄!"
.....
else
找到的話，進行相應的單元格賦值操作
.....
endif
4、用將上述步驟嵌套到壹個循環語句內，以便繼續查找。