- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28

|
4#
發表於 2013-2-16 16:25
| 只看該作者
唔好意思!
我是在(K1)輸入一個數值如"12345",用MACRO CTRL F 選取"K1"數值(如12345),由該數值所在的儲存 ...
wwh126 發表於 2013-2-9 21:00 
假設要貼在第2頁的A1下- Sub TEST1()
- Dim result As Range
- Sheets(1).Select
- Set result = Cells.Find(What:=[A1].Value, After:=[A1], LookIn:=xlFormulas, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
- False, SearchFormat:=False)
- If Not (result Is Nothing) Then
- Sheets(2).Range("A1").Resize(25, 1).Value = result.Resize(25, 1).Value
- End If
-
- End Sub
-
複製代碼 |
|