- 帖子
- 17
- 主題
- 4
- 精華
- 0
- 積分
- 58
- 點名
- 2
- 作業系統
- Win 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 註冊時間
- 2015-3-15
- 最後登錄
- 2025-5-19
|
小弟不才，分享自行寫出的公式吧
Sub Find()
x = InputBox("請輸入數值")
Dim range1 As Range
Set range1 = Range("d2:i1000").Find(what:=x, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlRows, matchbyte:=True)
MsgBox (range1.Address)
End Sub
再利用FindNext可以繼續下一個 |
|
發表於 2015-3-30 15:37
| 