[問題] VBA整理股票代號

看板Office作者 (Bai)時間5年前 (2019/03/14 19:24), 編輯推噓0(0024)
留言24則, 2人參與, 5年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: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) 在這邊卡了很久 一直都想不通 懇求各位高手能幫我解答 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.51.217.56 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1552562646.A.4D9.html

03/14 19:32, 5年前 , 1F
提供一下範例檔,會比較清楚原文所述的問題?如串起來是什
03/14 19:32, 1F

03/14 19:33, 5年前 , 2F
麼意思?cells(..)=cells(..)判斷的意思?
03/14 19:33, 2F

03/14 19:35, 5年前 , 3F
依照A表單的股票代碼 去找對應的B(C, D)表單其他數字填在
03/14 19:35, 3F

03/14 19:35, 5年前 , 4F
A表單的股票代碼後面
03/14 19:35, 4F

03/14 19:36, 5年前 , 5F
嗯那提供一下檔案嘛
03/14 19:36, 5F

03/14 19:39, 5年前 , 6F
ㄜ...我不知道怎麼提供表單...但應該能拍照...
03/14 19:39, 6F

03/14 19:40, 5年前 , 7F
拍照、截圖是無法正確提供實際的資料是什麼的
03/14 19:40, 7F

03/14 19:40, 5年前 , 8F
看起來一樣的
03/14 19:40, 8F

03/14 19:41, 5年前 , 9F
資料,a1和b1,a2和b2來判斷,回傳為假false
03/14 19:41, 9F

03/14 19:41, 5年前 , 10F
為什麼?有可能是資料內有無法列印字元、也有可能顯示的資
03/14 19:41, 10F

03/14 19:42, 5年前 , 11F
料是從儲存格式調整來的
03/14 19:42, 11F

03/14 19:42, 5年前 , 12F
對對對 就是這樣 我用表單內If函數試過 他說兩個是不一
03/14 19:42, 12F

03/14 19:42, 5年前 , 13F
樣的東西
03/14 19:42, 13F

03/14 19:43, 5年前 , 14F
所以才要請提供檔案,上傳雲端空間,貼上連結(太長請找縮
03/14 19:43, 14F

03/14 19:44, 5年前 , 15F
網址),有需要開共用(如google雲端)的話不要忘記
03/14 19:44, 15F

03/14 19:45, 5年前 , 16F
公司檔案有加密 我請主管解密後在上傳
03/14 19:45, 16F

03/14 19:48, 5年前 , 17F
個人覺得開新活頁簿copy幾筆有問題的到工作表內(如這樣不
03/14 19:48, 17F

03/14 19:50, 5年前 , 18F
用還要解密),就如我回文那樣,a欄和b欄應就可看出資料上
03/14 19:50, 18F

03/14 19:50, 5年前 , 19F
的不同
03/14 19:50, 19F

03/14 20:02, 5年前 , 20F
我把資料格式都轉成文字就解決這個問題了 所以應該是VBA
03/14 20:02, 20F

03/14 20:02, 5年前 , 21F
在複製資料的時候造成資料型態不一樣 所以if認為他們是
03/14 20:02, 21F

03/14 20:02, 5年前 , 22F
不同的東西?
03/14 20:02, 22F

03/14 20:11, 5年前 , 23F
應如原po回文所述
03/14 20:11, 23F

03/14 20:16, 5年前 , 24F
感謝S大 真的幫了我大忙~
03/14 20:16, 24F
文章代碼(AID): #1SYZdMJP (Office)