[问题] VBA整理股票代号

楼主: lag1056 (polovoe)   2019-03-14 19:24:04
(若是和其他不同软件互动之问题 请记得一并填写)
软件:Excel
版本:2010
版上的高手们好
小弟有问题想请教
我用VBA去串连几个表单
例如:
A表单(主要输出表单)
B表单(股票代码、收盘价)
C表单(股票代码、持有成本)
D表单(股票代码、单价成本)
串联的标准是把B、C、D的股票代码整理在A表单,然后删除重复
之后用for跟if去找其他表单对应的数字
例如:
for i = 1 to N
for j = 1 to N
if worksheets("A").cells(i,1)=worksheets("B").cells(j,1) then
worksheets("A")cells(i,2)=worksheets("B").cells(j,2)
end if
next j
next i
一般的股票代码都没有问题(Ex:2330)
但是遇到一些比较特殊的股票代码就会没办法串起来(Ex:00636)
在这边卡了很久 一直都想不通
恳求各位高手能帮我解答
谢谢
作者: soyoso (我是耀宗)   2019-03-14 19:43:00
所以才要请提供档案,上传云端空间,贴上连结(太长请找缩网址),有需要开共用(如google云端)的话不要忘记
楼主: lag1056 (polovoe)   2019-03-14 19:45:00
公司档案有加密 我请主管解密后在上传
作者: soyoso (我是耀宗)   2019-03-14 19:48:00
个人觉得开新活页簿copy几笔有问题的到工作表内(如这样不用还要解密),就如我回文那样,a栏和b栏应就可看出资料上的不同
楼主: lag1056 (polovoe)   2019-03-14 19:42:00
对对对 就是这样 我用表单内If函数试过 他说两个是不一样的东西
楼主: lag1056 (polovoe)   2019-03-14 20:16:00
感谢S大 真的帮了我大忙~
作者: soyoso (我是耀宗)   2019-03-14 20:11:00
应如原po回文所述
作者: soyoso (我是耀宗)   2019-03-14 19:40:00
拍照、截图是无法正确提供实际的资料是什么的举例好了 https://i.imgur.com/DwDD84p.jpg 看起来一样的资料,a1和b1,a2和b2来判断,回传为假false为什么?有可能是资料内有无法打印字符、也有可能显示的资料是从储存格式调整来的
楼主: lag1056 (polovoe)   2019-03-14 20:02:00
我把资料格式都转成文字就解决这个问题了 所以应该是VBA在复制资料的时候造成资料型态不一样 所以if认为他们是不同的东西?
楼主: lag1056 (polovoe)   2019-03-14 19:39:00
ㄜ...我不知道怎么提供表单...但应该能拍照...
作者: soyoso (我是耀宗)   2019-03-14 19:36:00
嗯那提供一下档案嘛
楼主: lag1056 (polovoe)   2019-03-14 19:35:00
依照A表单的股票代码 去找对应的B(C, D)表单其他数字填在A表单的股票代码后面
作者: soyoso (我是耀宗)   2019-03-14 19:32:00
提供一下范例档,会比较清楚原文所述的问题?如串起来是什么意思?cells(..)=cells(..)判断的意思?

Links booklink

Contact Us: admin [ a t ] ucptt.com