返回列表 上一主題 發帖

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

wwh126

帖子
21 
主題
6 
精華
0 
積分
32 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
MACAU 
註冊時間
2012-12-17 
最後登錄
2016-10-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-2-7 18:54 | 只看該作者

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

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
148  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-6-19 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-2-8 09:29 | 只看該作者
回復 1# wwh126
Copy該位移後的儲存格嗎?
Paste到哪個位置?
問題應該說明清楚
學海無涯_不恥下問

TOP

wwh126

帖子
21 
主題
6 
精華
0 
積分
32 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
MACAU 
註冊時間
2012-12-17 
最後登錄
2016-10-26 
3#
發表於 2013-2-9 21:00 | 只看該作者
唔好意思！
我是在(K1)輸入一個數值如"12345"，用MACRO CTRL F 選取"K1"數值(如12345)，由該數值所在的儲存格(可能是A5可能是A105)開始，向右數6行和向下數25列，COPY 該範圍到另一工作頁貼(SHEET 2)上。

TOP

kimbal

帖子
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下
  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

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題