作者faceoflove56 (浪漫台三线)
看板Visual_Basic
标题[VBA ] 判断後复制贴上
时间Sun Jun 4 18:15:41 2017
我的资料表格式
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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1496571343.A.F3F.html
1F：→ MOONRAKER: 当然是用if了 06/05 17:53
2F：→ faceoflove56: 我的想法是用for回圈 後面接 06/05 22:43
3F：→ faceoflove56: if Ticker=xxxx then range().select 06/05 22:43
4F：→ faceoflove56: 不过这样会造成程式运行过久，因为外面的回圈要先跑 06/05 22:45
5F：→ faceoflove56: 股票代号(xxxx)，每档股票都要重跑里面的回圈 06/05 22:46
6F：→ MOONRAKER: 这个我就不懂了 外面跑股票代号 里面还有一层跑什麽 06/06 14:11
7F：→ MOONRAKER: 问题看起来有点复杂哩 06/06 14:11
8F：→ waiter337: Transpose 06/06 19:34
9F：→ waiter337: 但我说实在话,正确步骤为 06/06 19:34
10F：→ waiter337: 将所有符合的调件贴上公司位置(X) 06/06 19:35
11F：→ waiter337: 将符合条件的资料先汇入(阵列) #VBA阵列,不是F(X)阵列 06/06 19:36
12F：→ waiter337: 再用Transpose一次贴上 06/06 19:36
13F：→ waiter337: (O) 06/06 19:37
14F：→ waiter337: 两者速度至少差几千倍 06/06 19:37