帖子: 13
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 女
註冊時間: 2016-3-22
最後登錄: 2016-5-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-3-22 15:31 | 只看該作者

VAB 資料比對及轉寫

大家好，最近要寫一個需求是，有二份資料表，二份資料表(資料表名稱：單頭、單身) 有一個共同的KEY 值(不會重覆)，二份彼此比對後，會將二份裡面的某些欄位轉入到另一個資料表，
但要有一個判斷是，轉入到另一個資料表的值必須先核對KEY值，不知大家懂不懂我的意思......哈哈，有點難表達

因為寫了一星期，卻發現愈寫沒頭緒一直寫不出來，請大家可以給我個方向，謝謝

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2016-3-25 00:29 | 只看該作者

本帖最後由 luhpro 於 2016-3-25 00:38 編輯

回復 1# maggie1313
一般若遇到 "有一個共同的KEY 值(不會重覆)" 這類的需求,
我會優先使用 Directory 函數來實現.

因為你沒提供範例Excel檔案,
所以我另外做一個,
你可以參照修改實現你的需求.

Private Sub cbMerge_Click()
Dim lRow&
Dim sStr$
Dim vD1, vD2
Set vD1 = CreateObject("Scripting.Dictionary")
Set vD2 = CreateObject("Scripting.Dictionary")
Sheets("合併").Range([B2], [C100]).Clear
With Sheets("索引一")
lRow = 2
While .Cells(lRow, 1) <> ""
vD1(CStr(.Cells(lRow, 1))) = .Cells(lRow, 2)
lRow = lRow + 1
Wend
End With
With Sheets("索引二")
lRow = 2
While .Cells(lRow, 1) <> ""
vD2(CStr(.Cells(lRow, 1))) = .Cells(lRow, 2)
lRow = lRow + 1
Wend
End With
With Sheets("合併")
lRow = 2
While .Cells(lRow, 1) <> ""
sStr = .Cells(lRow, 1)
.Cells(lRow, 2) = vD1(sStr)
.Cells(lRow, 3) = vD2(sStr)
lRow = lRow + 1
Wend
End With
End Sub

複製代碼

Dictionary實做.zip (10.02 KB)

補充:
如果需要用到整列中不只一欄的資料,
可以索引列號:
vD1(CStr(.Cells(lRow, 1))) = lRow
再用
Sheets("合併").Cells(lRow, 2) = Sheets("索引一").Cells(vD1(sStr), 欄號)
來取得想要的資料.

另外,建議大家開題文中儘量能一併提供已經打好範例資料的Excel檔案,
這樣回文的人才不用還要自己依照圖片內容一個一個輸入資料建Excel檔案,
可以把時間專注在如何實現你的需求上.

TOP

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2023-5-2

3^#

發表於 2016-3-25 20:39 | 只看該作者

如果編號有重複的，姓名不同或是城市不同呢?

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

4^#

發表於 2016-3-25 23:33 | 只看該作者

回復 3# kim223824
那就改以編號_姓名或是編號_城市的組合鍵值來做區分.
其中的 _ 可以改為任何系統可接受並足資區分的符號或文數字來取代.

TOP

maggie1313

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 女
註冊時間: 2016-3-22
最後登錄: 2016-5-13

5^#

發表於 2016-3-28 17:00 | 只看該作者

[attach]23624[/attach]回復 6# maggie1313
你好，我想在請問一下，一開始我必須先要把KEY值COPY到合併的資料中，先當KEY值
這樣的方式我要怎樣用?

TOP

maggie1313

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 女
註冊時間: 2016-3-22
最後登錄: 2016-5-13

6^#

發表於 2016-3-29 08:27 | 只看該作者

回復 7# maggie1313

EF20160328.rar (25.83 KB)
因為不確定是否有上傳附件成功，故重新上傳一次

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

7^#

發表於 2016-3-29 21:46 | 只看該作者

本帖最後由 luhpro 於 2016-3-29 21:51 編輯

回復 5# maggie1313
你沒有提供正確結果範例,所以我只能用猜的:

Sub nn()
Dim lRow&
Dim wsSou As Worksheet, wsTar As Worksheet
Dim vD
Set vD = CreateObject("Scripting.Dictionary")
Set wsSou = Sheets("EF單身")
Set wsTar = Sheets("合併資料")
lRow = 2
With wsSou
While .Cells(lRow, 8) <> ""
wsTar.Cells(lRow, 1) = .Cells(lRow, 8)
wsTar.Cells(lRow, 2) = .Cells(lRow, 9) & "-" & .Cells(lRow, 10)
vD(CStr(.Cells(lRow, 8) & "-" & .Cells(lRow, 9) & "-" & .Cells(lRow, 10))) = lRow
lRow = lRow + 1
Wend
End With
End Sub

複製代碼

TOP

maggie1313

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 女
註冊時間: 2016-3-22
最後登錄: 2016-5-13

8^#

發表於 2016-3-30 11:12 | 只看該作者

回復 7# luhpro
你好，感謝你的解答。測試後是OK的。但現在我有另個問題想請問，如圖[attach]23643[/attach]
就是我們的合併資料要從第三行開始寫入資料，但後來發現有些問題，想在請教。(如果時間允許是否可簡單加入註解，這樣我就可以自已試著調整才不用每次都麻煩你們)
想在請問二個進階的問題。
1.：延續一開始所問的，如果我有了KEY值，後續我會開始把「EF單頭」跟「EF單身」的欄位開始丟到「合併資料」，那這樣的話我是一樣是依照一開始的程式套用嗎?
2：如圖的表達