[VBA ] 判断后复制贴上 faceoflove56 PTT批踢踢实业坊

[VBA ] 判断后复制贴上

楼主: faceoflove56 (浪漫台三线) 2017-06-04 18:15:41

我的资料表格式
Ticker Date StockPrice
1111 6/1
1111 6/2
1111 6/3
2330 6/1
2330 6/2
2330 6/3
.
.
.
我想要把股票资料贴到各公司的资料表
想请问前辈如何判断Ticker并复制资料一次贴上? (贴上我懂但不知如何做判断)

作者: MOONRAKER (㊣牛鹤鳗毛人) 2017-06-05 17:53:00

当然是用if了

楼主: faceoflove56 (浪漫台三线) 2017-06-05 22:43:00

我的想法是用for循环后面接if Ticker=xxxx then range().select不过这样会造成程式运行过久，因为外面的循环要先跑股票代号(xxxx)，每档股票都要重跑里面的循环

作者: MOONRAKER (㊣牛鹤鳗毛人) 2017-06-06 14:11:00

这个我就不懂了外面跑股票代号里面还有一层跑什么问题看起来有点复杂哩

作者: waiter337 (给开司一罐苏格登) 2017-06-06 19:34:00

Transpose但我说实在话,正确步骤为将所有符合的调件贴上公司位置(X)将符合条件的资料先汇入(阵列) #VBA阵列,不是F(X)阵列再用Transpose一次贴上(O)两者速度至少差几千倍

继续阅读

[VBA ] 撷取字串中特定文字前，符号内的文字Evelyn77 [VB6 ] register 控制问题gecer [.NET] exponential转换foreverwhat [VBA ] 不开excel档案,取得最后资料所在的列数nash7555 [VBA ] 网页输入文字circusbest [.NET] 请问有推荐的云端server？phil78 [.NET] 将程式放到网络上iwm5566 [VBA ] VB转VBA ReDim Preserve 问题noworneverev [.NET] vb.net 资料写入 wordprince1983 [VBA ] word如何读档读不到时用一讯息取代miki7623

Contact Us: admin [ a t ] ucptt.com