返回列表 上一主題 發帖

[發問] 如何選取指定數值

[發問] 如何選取指定數值

利用CTRL F 選取數值後,由當前儲存格向下25行和向右6列,進行COPY AND PASTE.

回復 1# wwh126
Copy該位移後的儲存格嗎?
Paste到哪個位置?
問題應該說明清楚
學海無涯_不恥下問

TOP

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

TOP

唔好意思!
我是在(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://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題