Range("a:a").Find(5)精準的用法
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
- Sub FIND()
- For i = 1 To 3
- c = 1
- Columns(i + 4) = ""
- Set rng = Columns(i).FIND(i + 4, , , xlWhole)
- If Not rng Is Nothing Then
- findrow = rng.Row
- Do
- Cells(c, i + 4) = rng.Row
- c = c + 1
- Set rng = Columns(i).FindNext(rng)
- Loop While Not rng Is Nothing And rng.Row <> findrow
- End If
- Next i
- End Sub
|
|
|
|
|
|
|
|
發表於 2012-3-5 16:54
| 