返回列表下一主題上一主題發帖

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

wwh126

小學生 Rank: 1

帖子: 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.

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

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

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

wwh126

小學生 Rank: 1

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章