Board logo

標題: [發問] 如何選取指定數值 [打印本頁]
作者: wwh126    時間: 2013-2-7 18:54     標題: 如何選取指定數值

利用CTRL F 選取數值後，由當前儲存格向下25行和向右6列，進行COPY AND PASTE.
作者: Hsieh    時間: 2013-2-8 09:29

回復 1# wwh126
Copy該位移後的儲存格嗎?
Paste到哪個位置?
問題應該說明清楚
作者: wwh126    時間: 2013-2-9 21:00

唔好意思！
我是在(K1)輸入一個數值如"12345"，用MACRO CTRL F 選取"K1"數值(如12345)，由該數值所在的儲存格(可能是A5可能是A105)開始，向右數6行和向下數25列，COPY 該範圍到另一工作頁貼(SHEET 2)上。
作者: kimbal    時間: 2013-2-16 16:25

唔好意思！
我是在(K1)輸入一個數值如"12345"，用MACRO CTRL F 選取"K1"數值(如12345)，由該數值所在的儲存 ...
wwh126 發表於 2013-2-9 21:00


假設要貼在第2頁的A1下
  1. Sub TEST1()
  2.     Dim result As Range
  3.     Sheets(1).Select
  4.     Set result = Cells.Find(What:=[A1].Value, After:=[A1], LookIn:=xlFormulas, _
  5.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  6.         False, SearchFormat:=False)
  7.     If Not (result Is Nothing) Then
  8.         Sheets(2).Range("A1").Resize(25, 1).Value = result.Resize(25, 1).Value
  9.     End If
  10.    
  11. End Sub
  12.    
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)