兩工作表比對新增修改 - Excel程式區

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2014-1-17 09:07 | 只看該作者

Sub ex()
Dim A As Range, Sh As Worksheet
Set d = CreateObject("Scripting.Dictionary")
For Each Sh In Sheets(Array("User A", "User B", "Match A & B"))
With Sh
For Each A In .Range(.[D1], .[D1].End(xlDown))
mystr = A.Offset(, -3) & A.Offset(, -2) & A
d(mystr) = Application.Transpose(Application.Transpose(A.Offset(, -3).Resize(, 6).Value))
Next
End With
Next
Sheets("Match A & B").[A1].Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.items))
End Sub

複製代碼

回復 11# li_hsien

學海無涯_不恥下問

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 217
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2014-1-17 10:38 | 只看該作者

回復 12# Hsieh

板大如果我欄位沒有一致
(A,B一樣但和A&B的不一樣)

會變動那該如何表示呢???

因為用Transpose應該是整欄整列吧

用功到世界末日那一天～～～

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2014-1-17 10:44 | 只看該作者

回復 13# li_hsien

不懂什麼A,B一樣A&B不一樣
把資料上傳說明看看

學海無涯_不恥下問

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 217
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

15^#

發表於 2014-1-17 11:06 | 只看該作者

回復 14# Hsieh

型號&類別&ID為主要判斷準則

UserA , UserB的欄位都一樣

將兩個工作表抓到matchA&B

藍底為matchA&B才會填的欄位

UserA,UserB抓過去的時候

必須對應欄位
如果UserA沒有的，但matchA&B有的欄位(EX:使用者)則留空

因為和matchA&B欄位不一樣
所以不知該如何用原先的方式對應

附檔裡的matchA&B為該產出的結果

麻煩幫我看看謝謝 : )

match0117.zip (20.53 KB)

用功到世界末日那一天～～～

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

16^#

發表於 2014-1-19 19:25 | 只看該作者

回復 1# li_hsien

非常感謝謝 Hsieh 的程式與說明,
總算對 Scripting.Dictionary,Transpose 有初步的概念,
謝謝!!
to Hi-Hsieh:因為我是小學生, 無權下載檔案,
可否將你的檔案 mail 給我, 因我很想研究這個程式, 程式太神奇了
[email protected]

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2014-1-20 09:57 | 只看該作者

回復 15# li_hsien
是這樣的意思嗎?
若USER有對照到MATCH_A&B則更新MATCH_A&B
若無對照到MATCH_A&B應則新增USER資料列到MATCH_A&B
若MATCH_A&B資料未出現在USER則保留

Sub ex()
Dim A As Range, Sh As Worksheet
Set d = CreateObject("Scripting.Dictionary")
For Each Sh In Sheets(Array("User A", "User B"))
With Sh
For Each A In .Range(.[C2], .[C2].End(xlDown))
Debug.Print A
d(A & A.Offset(, 1) & A.Offset(, 2)) = Array(A.Value, Sh.Name, A.Offset(, 1).Value, A.Offset(, -1).Value, A.Offset(, 2).Value, A.Offset(, 3).Value, "", A.Offset(, 4).Value)
Next
End With
Next
With Sheets("Match A & B")
For Each A In .Range(.[A2], .[A2].End(xlDown))
mystr = A & A.Offset(, 2) & A.Offset(, 4)
If d.exists(mystr) Then A.Resize(, 8) = d(mystr): d.Remove mystr
Next
For Each ky In d.keys
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 8) = d(ky)
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 217
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

18^#

發表於 2014-1-20 13:33 | 只看該作者

本帖最後由 li_hsien 於 2014-1-20 13:34 編輯

回復 17# Hsieh

[attach]17319[/attach]

MATCH比對方式是對的

不過要COPY的只有藍色前面的部分
If d.exists(mystr) Then A.Resize(, 5) = d(mystr): d.Remove mystr
我把8改成5好像就可以了

不過有一個地方怪怪的

就是MATCH的來源是依UsetA,UserB來的

所以如果UserA,UserB沒有的
MATCH那邊必須整欄都刪掉

也就是說
UserA,UserB有的,Match才需要留著

大大的語法好"新"的感覺XDD

幾乎都沒看過哈哈

我得研究研究了

用功到世界末日那一天～～～

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

19^#

發表於 2014-1-20 14:34 | 只看該作者

回復 18# li_hsien
15#說到
如果UserA沒有的，但matchA&B有的欄位(EX:使用者)則留空
表示USER內無資料則保留原存在於MATCH的資料
18#說到
MATCH的來源是依UsetA,UserB來的
所以如果UserA,UserB沒有的
MATCH那邊必須整欄都刪掉
這是完全不管MATCH的資料，只留下USER的資料
這兩種敘述好像是衝突的

學海無涯_不恥下問

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 217
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

20^#

發表於 2014-1-20 17:25 | 只看該作者

回復 19# Hsieh

板大不好意思我敘述上好像會造成誤解

我整理一下
資料來源來自於UserA , UserB
但是UserA , UserB的欄位只有到E欄位"週別 Date 型號類別 ID"
後面藍色的我忘了刪掉

MATCH後

Match A & B
來自於UserA , UserB
(比對原則依據先前所提的紅字部分->3個(型號,類別,ID)為一組)

但是如果Match A & B 後面藍色部分有資料
下次MATCH的時候

資料一樣來自於
UserA , UserB
可是Match A & B後面藍色部分必須保留

除非UserA , UserB 那邊資料沒了
Match A & B也要跟著整欄刪

EX:

UserA
->  AAA BBB CCC
   AAA BBB DDD
Match A & B
-> AAA BBB CCC TEST123(前三個為比對的依據，第四個為Match A & B才填入的資料)
   AAA BBB DDD TEST456

<再次MATCH>

UserA(資料改變了)
-> AAA  BBB  EEE
   AAA  BBB  DDD

Match A & B
-> AAA BBB DDD TEST456 (因為一開始比對時有這筆，再次比對一樣又出現時，後面那個資料要留下來)
   AAA BBB  EEE                   (此為新出現的，補在後面)

以上不知這樣清不清楚XDD

煩請大大幫忙看看

如不清楚我再說明

謝謝

用功到世界末日那一天～～～