12
返回列表 上一主題 發帖

[發問] 萬筆資料快速比對處理

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
6# 跳轉到 »
發表於 2017-10-10 21:53 | 只看該作者
回復 1# bioleon69
依你篩選規則，從1萬9千多筆資料中總共會篩出272筆資料，與需比對的249筆資料多出23筆，經檢查資料庫後發現共有33筆股票代號會有兩種股票名稱，例如：
61071包含：微星國票71購01、華美一，兩種股票名稱
61262包含：榮成元大6C購01、信音二，兩種股票名稱
61274包含：興勤永豐6C購01、九豪四，兩種股票名稱
...族繁不及備載。

另外需比對的249筆資料中，沒被篩出的股票代號共有底下的10筆：
13361、14663、17152、24022、30181、30392、35352、47143、80381、81712

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2017-10-10 18:59 | 只看該作者
本帖最後由 ziv976688 於 2017-10-10 19:11 編輯

回復 4# bioleon69
Sheet1=資料庫，Sheet2要比對的A欄資料一般都應該是以手動方式填入的，因此，是不是先將Sheet2!A不要比對的列，先自行移除後再執行巨集。

或在第一次執行巨集後，將Sheet2有顯示#N/A的列移除(筆數不多，且只要移除一次，應該不會很麻煩)，再執行巨集一次即可。

我不懂股票，不知其代號有沒有特定的型態?有的話，可以用"取代"或程式移除非指定型態的Sheet1的列
以上僅供參考

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
4#
發表於 2017-10-10 18:07 | 只看該作者
回復 3# ziv976688


ZIV~謝謝你的回覆!
如果是說
要把SHEET1多餘的不符合股票代號
全部刪除應該怎麼做比較好?!
VBA 從0開始
先從學會看的懂開始
先從會有基本修改能力開始
一步一步學習中

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2017-10-10 10:22 | 只看該作者
回復 1# bioleon69
VLOOKUP_vba.rar (355.73 KB)

不好意思，沒注意到問題是放在程式區
再補上程式碼

Private Sub CommandButton1_Click()
[B1:G500] = ""

[B1].Resize(500, 6) = "=IF($A1="""","""",VLOOKUP($A1,Sheet1!$B:$H,COLUMN(),))"
[B1].Resize(500, 6) = [B1].Resize(500, 6).Value

[H1].Select
End Sub

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
2#
發表於 2017-10-10 02:58 | 只看該作者
本帖最後由 ziv976688 於 2017-10-10 02:59 編輯

回復 1# bioleon69
VLOOKUP.rar (349.65 KB)

Sheet1!B1
=IF($A1="","",VLOOKUP($A1,Sheet1!$B:$H,COLUMN(),))
右拉至G欄，在右下角的小"+"快速點2次，或下拉填滿。

Sheet2!B:G有很多顯示#N/A的儲存格，
Sheet2! A欄的某些代號，是不是Sheet1!B欄沒有？
Sheet1!太多筆，沒仔細看。

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
12
返回列表 上一主題