[VBA ] 判斷後複製貼上

[faceoflove56 (浪漫台三線)]

我的資料表格式

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
→ MOONRAKER: 當然是用if了
→ faceoflove56: 我的想法是用for迴圈 後面接
→ faceoflove56: if Ticker=xxxx then range().select
→ faceoflove56: 不過這樣會造成程式運行過久，因為外面的迴圈要先跑
→ faceoflove56: 股票代號(xxxx)，每檔股票都要重跑裡面的迴圈
→ MOONRAKER: 這個我就不懂了 外面跑股票代號 裏面還有一層跑什麼
→ MOONRAKER: 問題看起來有點複雜哩
→ waiter337: Transpose
→ waiter337: 但我說實在話,正確步驟為
→ waiter337: 將所有符合的調件貼上公司位置(X)
→ waiter337: 將符合條件的資料先匯入(陣列) #VBA陣列,不是F(X)陣列
→ waiter337: 再用Transpose一次貼上
→ waiter337: (O)
→ waiter337: 兩者速度至少差幾千倍