li_hsien

回復 5# Hsieh

請問一下板大

原先我是以D欄為主

現行改為
依三個欄位來比對

變成是看A,B,D三個欄位
ABD一起看來判別是一筆

也就是說光單看A或B或D會有重複

必須A,B,D一起看才能夠判定

這樣我必須怎麼修正???

請教一下大大

謝謝 :  )

Hsieh

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

複製代碼

回復 11# li_hsien

li_hsien

回復 12# Hsieh

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

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

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

Hsieh

回復 13# li_hsien


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

li_hsien

回復 14# Hsieh

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

UserA , UserB的欄位都一樣

將兩個工作表抓到matchA&B

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


UserA,UserB抓過去的時候

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

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


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

麻煩幫我看看 謝謝 : )

match0117.zip (20.53 KB)

下載次數: 8

2014-1-17 11:00

yen956

回復 1# li_hsien

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

Hsieh

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

1. Sub ex()
   
2. 
   
3.     Dim A As Range, Sh As Worksheet
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     For Each Sh In Sheets(Array("User A", "User B"))
   
6.     With Sh
   
7.        For Each A In .Range(.[C2], .[C2].End(xlDown))
   
8.           Debug.Print A
   
9.           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)
   
10.        Next
    
11.     End With
    
12.     Next
    
13.     With Sheets("Match A & B")
    
14.       For Each A In .Range(.[A2], .[A2].End(xlDown))
    
15.          mystr = A & A.Offset(, 2) & A.Offset(, 4)
    
16.          If d.exists(mystr) Then A.Resize(, 8) = d(mystr): d.Remove mystr
    
17.       Next
    
18.       For Each ky In d.keys
    
19.         .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 8) = d(ky)
    
20.       Next
    
21.    End With
    
22. End Sub

複製代碼

li_hsien

回復 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

幾乎都沒看過 哈哈

我得研究研究了

Hsieh

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

li_hsien

回復 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

煩請大大幫忙看看

如不清楚我再說明

謝謝