| 本帖最後由 alumi 於 12-6-17 11:50 編輯 
 calvinhorng 發表於 12-6-16 19:17  好像沒有一個單純的指令
 試看看附件
 按下活頁裡的搜索
Debug.Print  Worksheetfunction.Match("466",Range(Cells(1,"A"),Cells(22,"A")),0)
 Debug.Print  Worksheetfunction.Match("466",Range(Columns("A").Address),0)
 Debug.Print  Worksheetfunction.Match("466",Range(Columns(1).Address),0)
 Debug.Print  Worksheetfunction.Match("466",Range("A:A"),0)
 
 謝謝您的程式碼,就交給前端的函數去處理.
 
 感恩~  ^_^
 
 
 
 
 |