[VBA ] 判斷後複製貼上

看板Visual_Basic作者 (浪漫台三線)時間7年前 (2017/06/04 18:15), 編輯推噓0(0014)
留言14則, 3人參與, 最新討論串1/1
我的資料表格式 Ticker Date StockPrice 1111 6/1 1111 6/2 1111 6/3 2330 6/1 2330 6/2 2330 6/3 . . . 我想要把股票資料貼到各公司的資料表 想請問前輩如何判斷Ticker並複製資料一次貼上? (貼上我懂但不知如何做判斷) -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.42.38.249 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1496571343.A.F3F.html

06/05 17:53, , 1F
當然是用if了
06/05 17:53, 1F

06/05 22:43, , 2F
我的想法是用for迴圈 後面接
06/05 22:43, 2F

06/05 22:43, , 3F
if Ticker=xxxx then range().select
06/05 22:43, 3F

06/05 22:45, , 4F
不過這樣會造成程式運行過久,因為外面的迴圈要先跑
06/05 22:45, 4F

06/05 22:46, , 5F
股票代號(xxxx),每檔股票都要重跑裡面的迴圈
06/05 22:46, 5F

06/06 14:11, , 6F
這個我就不懂了 外面跑股票代號 裏面還有一層跑什麼
06/06 14:11, 6F

06/06 14:11, , 7F
問題看起來有點複雜哩
06/06 14:11, 7F

06/06 19:34, , 8F
Transpose
06/06 19:34, 8F

06/06 19:34, , 9F
但我說實在話,正確步驟為
06/06 19:34, 9F

06/06 19:35, , 10F
將所有符合的調件貼上公司位置(X)
06/06 19:35, 10F

06/06 19:36, , 11F
將符合條件的資料先匯入(陣列) #VBA陣列,不是F(X)陣列
06/06 19:36, 11F

06/06 19:36, , 12F
再用Transpose一次貼上
06/06 19:36, 12F

06/06 19:37, , 13F
(O)
06/06 19:37, 13F

06/06 19:37, , 14F
兩者速度至少差幾千倍
06/06 19:37, 14F
文章代碼(AID): #1PCztFy_ (Visual_Basic)